home *** CD-ROM | disk | FTP | other *** search
/ Developer CD Series 1997 October: Mac OS SDK / Dev.CD Oct 97 SDK1.toast / Development Kits (Disc 1) / Interfaces&Libraries / Universal / Interfaces / AIncludes / QuickTimeMusic.a < prev    next >
Encoding:
Text File  |  1997-08-12  |  81.0 KB  |  2,479 lines  |  [TEXT/MPS ]
  1. ;
  2. ;    File:        QuickTimeMusic.a
  3. ;
  4. ;    Contains:    QuickTime Interfaces.
  5. ;
  6. ;    Version:    Technology:    QuickTime 2.5
  7. ;                Release:    Universal Interfaces 3.0.1
  8. ;
  9. ;    Copyright:    © 1990-1997 by Apple Computer, Inc., all rights reserved
  10. ;
  11. ;    Bugs?:        Please include the the file and version information (from above) with
  12. ;                the problem description.  Developers belonging to one of the Apple
  13. ;                developer programs can submit bug reports to:
  14. ;
  15. ;                    devsupport@apple.com
  16. ;
  17. ;
  18.     IF &TYPE('__QUICKTIMEMUSIC__') = 'UNDEFINED' THEN
  19. __QUICKTIMEMUSIC__ SET 1
  20.  
  21.     IF &TYPE('__COMPONENTS__') = 'UNDEFINED' THEN
  22.     include 'Components.a'
  23.     ENDIF
  24.     IF &TYPE('__IMAGECOMPRESSION__') = 'UNDEFINED' THEN
  25.     include 'ImageCompression.a'
  26.     ENDIF
  27.     IF &TYPE('__MOVIES__') = 'UNDEFINED' THEN
  28.     include 'Movies.a'
  29.     ENDIF
  30.     IF &TYPE('__QUICKDRAW__') = 'UNDEFINED' THEN
  31.     include 'Quickdraw.a'
  32.     ENDIF
  33.     IF &TYPE('__VIDEO__') = 'UNDEFINED' THEN
  34.     include 'Video.a'
  35.     ENDIF
  36.     IF &TYPE('__SOUND__') = 'UNDEFINED' THEN
  37.     include 'Sound.a'
  38.     ENDIF
  39.  
  40.  
  41. kaiToneDescType                    EQU        'tone'
  42. kaiNoteRequestInfoType            EQU        'ntrq'
  43. kaiKnobListType                    EQU        'knbl'
  44. kaiKeyRangeInfoType                EQU        'sinf'
  45. kaiSampleDescType                EQU        'sdsc'
  46. kaiSampleInfoType                EQU        'smin'
  47. kaiSampleDataType                EQU        'sdat'
  48. kaiInstInfoType                    EQU        'iinf'
  49. kaiPictType                        EQU        'pict'
  50. kaiWriterType                    EQU        '©wrt'
  51. kaiCopyrightType                EQU        '©cpy'
  52. kaiOtherStrType                    EQU        'str '
  53. kaiInstrumentRefType            EQU        'iref'
  54. kaiLibraryInfoType                EQU        'linf'
  55. kaiLibraryDescType                EQU        'ldsc'
  56. InstLibDescRec            RECORD 0
  57. libIDName                 ds        Str31            ; offset: $0 (0)
  58. sizeof                     EQU *                    ; size:   $20 (32)
  59.                         ENDR
  60. InstKnobRec                RECORD 0
  61. number                     ds.l    1                ; offset: $0 (0)
  62. value                     ds.l    1                ; offset: $4 (4)
  63. sizeof                     EQU *                    ; size:   $8 (8)
  64.                         ENDR
  65.  
  66. kInstKnobMissingUnknown            EQU        0
  67. kInstKnobMissingDefault            EQU        $01
  68. InstKnobList            RECORD 0
  69. knobCount                 ds.l    1                ; offset: $0 (0)
  70. knobFlags                 ds.l    1                ; offset: $4 (4)
  71. knob                     ds        InstKnobRec        ; offset: $8 (8) <-- really an array of length one
  72. sizeof                     EQU *                    ; size:   $10 (16)
  73.                         ENDR
  74.  
  75. kMusicLoopTypeNormal            EQU        0
  76. kMusicLoopTypePalindrome        EQU        1                    ; back & forth
  77.  
  78. instSamplePreProcessFlag        EQU        $01
  79.  
  80. InstSampleDescRec        RECORD 0
  81. dataFormat                 ds.l    1                ; offset: $0 (0)
  82. numChannels                 ds.w    1                ; offset: $4 (4)
  83. sampleSize                 ds.w    1                ; offset: $6 (6)
  84. sampleRate                 ds.l    1                ; offset: $8 (8)
  85. sampleDataID             ds.w    1                ; offset: $C (12)
  86. offset                     ds.l    1                ; offset: $E (14)        ;  offset within SampleData - this could be just for internal use
  87. numSamples                 ds.l    1                ; offset: $12 (18)        ;  this could also just be for internal use, we'll see
  88. loopType                 ds.l    1                ; offset: $16 (22)
  89. loopStart                 ds.l    1                ; offset: $1A (26)
  90. loopEnd                     ds.l    1                ; offset: $1E (30)
  91. pitchNormal                 ds.l    1                ; offset: $22 (34)
  92. pitchLow                 ds.l    1                ; offset: $26 (38)
  93. pitchHigh                 ds.l    1                ; offset: $2A (42)
  94. sizeof                     EQU *                    ; size:   $2E (46)
  95.                         ENDR
  96. ; typedef Handle                         AtomicInstrument
  97.  
  98. ; typedef Ptr                             AtomicInstrumentPtr
  99.  
  100.  
  101.  
  102. kMusicComponentType                EQU        'musi'
  103.  
  104. kSoftSynthComponentSubType        EQU        'ss  '
  105. kGMSynthComponentSubType        EQU        'gm  '
  106.  
  107. ; typedef ComponentInstance             MusicComponent
  108.  
  109. ;  MusicSynthesizerFlags
  110.  
  111. kSynthesizerDynamicVoice        EQU        $01                    ; can assign voices on the fly (else, polyphony is very important 
  112. kSynthesizerUsesMIDIPort        EQU        $02                    ; must be patched through MIDI Manager 
  113. kSynthesizerMicrotone            EQU        $04                    ; can play microtonal scales 
  114. kSynthesizerHasSamples            EQU        $08                    ; synthesizer has some use for sampled data 
  115. kSynthesizerMixedDrums            EQU        $10                    ; any part can play drum parts, total = instrument parts 
  116. kSynthesizerSoftware            EQU        $20                    ; implemented in main CPU software == uses cpu cycles 
  117. kSynthesizerHardware            EQU        $40                    ; is a hardware device (such as nubus, or maybe DSP?) 
  118. kSynthesizerDynamicChannel        EQU        $80                    ; can move any part to any channel or disable each part. (else we assume it lives on all channels in masks) 
  119. kSynthesizerHogsSystemChannel    EQU        $0100                ; can be channelwise dynamic, but always responds on its system channel 
  120. kSynthesizerSlowSetPart            EQU        $0400                ; SetPart() and SetPartInstrumentNumber() calls do not have rapid response, may glitch notes 
  121. kSynthesizerOffline                EQU        $1000                ; can enter an offline synthesis mode 
  122. kSynthesizerGM                    EQU        $4000                ; synth is a GM device 
  123. kSynthesizerSoundLocalization    EQU        $00010000            ; synth is a GM device 
  124. ; 
  125. ; * Note that these controller numbers
  126. ; * are _not_ identical to the MIDI controller numbers.
  127. ; * These are _signed_ 8.8 values, and the LSB's are
  128. ; * always sent to a MIDI device. Controllers 32-63 are
  129. ; * reserved (for MIDI, they are LSB's for 0-31, but we
  130. ; * always send both).
  131. ; *
  132. ; * The full range, therefore, is -128.00 to 127.7f.
  133. ; *
  134. ; * _Excepting_ _volume_, all controls default to zero.
  135. ; *
  136. ; * Pitch bend is specified in fractional semitones! No
  137. ; * more "pitch bend range" nonsense. You can bend as far
  138. ; * as you want, any time you want.
  139. ; 
  140.  
  141. ; typedef SInt32                         MusicController
  142.  
  143.  
  144. kControllerModulationWheel        EQU        1
  145. kControllerBreath                EQU        2
  146. kControllerFoot                    EQU        4
  147. kControllerPortamentoTime        EQU        5                    ; portamento on/off is omitted, 0 time = 'off' 
  148. kControllerVolume                EQU        7
  149. kControllerBalance                EQU        8
  150. kControllerPan                    EQU        10                    ; 0 - "default", 1 - n: positioned in output 1-n (incl fractions) 
  151. kControllerExpression            EQU        11
  152. kControllerLever1                EQU        16                    ; general purpose controllers 
  153. kControllerLever2                EQU        17                    ; general purpose controllers 
  154. kControllerLever3                EQU        18                    ; general purpose controllers 
  155. kControllerLever4                EQU        19                    ; general purpose controllers 
  156. kControllerLever5                EQU        80                    ; general purpose controllers 
  157. kControllerLever6                EQU        81                    ; general purpose controllers 
  158. kControllerLever7                EQU        82                    ; general purpose controllers 
  159. kControllerLever8                EQU        83                    ; general purpose controllers 
  160. kControllerPitchBend            EQU        32                    ; positive & negative semitones, with 7 bits fraction 
  161. kControllerAfterTouch            EQU        33                    ; aka channel pressure 
  162. kControllerSustain                EQU        64                    ; boolean - positive for on, 0 or negative off 
  163. kControllerSostenuto            EQU        66                    ; boolean 
  164. kControllerSoftPedal            EQU        67                    ; boolean 
  165. kControllerReverb                EQU        91
  166. kControllerTremolo                EQU        92
  167. kControllerChorus                EQU        93
  168. kControllerCeleste                EQU        94
  169. kControllerPhaser                EQU        95
  170. kControllerEditPart                EQU        113                    ; last 16 controllers 113-128 and above are global controllers which respond on part zero 
  171. kControllerMasterTune            EQU        114
  172.  
  173. kControllerMaximum                EQU        $7FFF                ; +01111111.11111111 
  174. kControllerMinimum                EQU        $8000                ; -10000000.00000000 
  175. SynthesizerDescription    RECORD 0
  176. synthesizerType             ds.l    1                ; offset: $0 (0)        ;  synthesizer type (must be same as component subtype) 
  177. name                     ds        Str31            ; offset: $4 (4)        ;  text name of synthesizer type 
  178. flags                     ds.l    1                ; offset: $24 (36)        ;  from the above enum 
  179. voiceCount                 ds.l    1                ; offset: $28 (40)        ;  maximum polyphony 
  180. partCount                 ds.l    1                ; offset: $2C (44)        ;  maximum multi-timbrality (and midi channels) 
  181. instrumentCount             ds.l    1                ; offset: $30 (48)        ;  non gm, built in (rom) instruments only 
  182. modifiableInstrumentCount  ds.l    1                ; offset: $34 (52)        ;  plus n-more are user modifiable 
  183. channelMask                 ds.l    1                ; offset: $38 (56)        ;  (midi device only) which channels device always uses 
  184. drumPartCount             ds.l    1                ; offset: $3C (60)        ;  maximum multi-timbrality of drum parts 
  185. drumCount                 ds.l    1                ; offset: $40 (64)        ;  non gm, built in (rom) drumkits only 
  186. modifiableDrumCount         ds.l    1                ; offset: $44 (68)        ;  plus n-more are user modifiable 
  187. drumChannelMask             ds.l    1                ; offset: $48 (72)        ;  (midi device only) which channels device always uses 
  188. outputCount                 ds.l    1                ; offset: $4C (76)        ;  number of audio outputs (usually two) 
  189. latency                     ds.l    1                ; offset: $50 (80)        ;  response time in µSec 
  190. controllers                 ds.l    4                ; offset: $54 (84)        ;  array of 128 bits 
  191. gmInstruments             ds.l    4                ; offset: $64 (100)        ;  array of 128 bits 
  192. gmDrums                     ds.l    4                ; offset: $74 (116)        ;  array of 128 bits 
  193. sizeof                     EQU *                    ; size:   $84 (132)
  194.                         ENDR
  195.  
  196. kVoiceCountDynamic                EQU        -1                    ; constant to use to specify dynamic voicing 
  197.  
  198. ToneDescription            RECORD 0
  199. synthesizerType             ds.l    1                ; offset: $0 (0)        ;  synthesizer type 
  200. synthesizerName             ds        Str31            ; offset: $4 (4)        ;  name of instantiation of synth 
  201. instrumentName             ds        Str31            ; offset: $24 (36)        ;  preferred name for human use 
  202. instrumentNumber         ds.l    1                ; offset: $44 (68)        ;  inst-number used if synth-name matches 
  203. gmNumber                 ds.l    1                ; offset: $48 (72)        ;  Best matching general MIDI number 
  204. sizeof                     EQU *                    ; size:   $4C (76)
  205.                         ENDR
  206.  
  207. kFirstDrumkit                    EQU        16384                ; (first value is "no drum". instrument numbers from 16384->16384+128 are drumkits, and for GM they are _defined_ drumkits! 
  208. kLastDrumkit                    EQU        16512
  209. ;  InstrumentMatch
  210.  
  211. kInstrumentMatchSynthesizerType    EQU        1
  212. kInstrumentMatchSynthesizerName    EQU        2
  213. kInstrumentMatchName            EQU        4
  214. kInstrumentMatchNumber            EQU        8
  215. kInstrumentMatchGMNumber        EQU        16
  216. ;  KnobFlags
  217.  
  218. kKnobReadOnly                    EQU        16                    ; knob value cannot be changed by user or with a SetKnob call 
  219. kKnobInterruptUnsafe            EQU        32                    ; only alter this knob from foreground task time (may access toolbox) 
  220. kKnobKeyrangeOverride            EQU        64                    ; knob can be overridden within a single keyrange (software synth only) 
  221. kKnobGroupStart                    EQU        128                    ; knob is first in some logical group of knobs 
  222. kKnobFixedPoint8                EQU        1024
  223. kKnobFixedPoint16                EQU        2048                ; One of these may be used at a time. 
  224. kKnobTypeNumber                    EQU        $00
  225. kKnobTypeGroupName                EQU        $1000                ; "knob" is really a group name for display purposes 
  226. kKnobTypeBoolean                EQU        $2000                ; if range is greater than 1, its a multi-checkbox field 
  227. kKnobTypeNote                    EQU        $3000                ; knob range is equivalent to MIDI keys 
  228. kKnobTypePan                    EQU        $4000                ; range goes left/right (lose this? ) 
  229. kKnobTypeInstrument                EQU        $5000                ; knob value = reference to another instrument number 
  230. kKnobTypeSetting                EQU        $6000                ; knob value is 1 of n different things (eg, fm algorithms) popup menu 
  231. kKnobTypeMilliseconds            EQU        $7000                ; knob is a millisecond time range 
  232. kKnobTypePercentage                EQU        $8000                ; knob range is displayed as a Percentage 
  233. kKnobTypeHertz                    EQU        $9000                ; knob represents frequency 
  234. kKnobTypeButton                    EQU        $A000                ; momentary trigger push button 
  235.  
  236.  
  237. kUnknownKnobValue                EQU        $7FFFFFFF            ; a knob with this value means, we don't know it. 
  238. kDefaultKnobValue                EQU        $7FFFFFFE            ; used to SET a knob to its default value. 
  239. KnobDescription            RECORD 0
  240. name                     ds        Str63            ; offset: $0 (0)
  241. lowValue                 ds.l    1                ; offset: $40 (64)
  242. highValue                 ds.l    1                ; offset: $44 (68)
  243. defaultValue             ds.l    1                ; offset: $48 (72)        ;  a default instrument is made of all default values 
  244. flags                     ds.l    1                ; offset: $4C (76)
  245. knobID                     ds.l    1                ; offset: $50 (80)
  246. sizeof                     EQU *                    ; size:   $54 (84)
  247.                         ENDR
  248. GCInstrumentData        RECORD 0
  249. tone                     ds        ToneDescription ; offset: $0 (0)
  250. knobCount                 ds.l    1                ; offset: $4C (76)
  251. knob                     ds.l    1                ; offset: $50 (80) <-- really an array of length one
  252. sizeof                     EQU *                    ; size:   $54 (84)
  253.                         ENDR
  254. ; typedef struct GCInstrumentData *        GCInstrumentDataPtr
  255.  
  256. ; typedef GCInstrumentDataPtr *            GCInstrumentDataHandle
  257.  
  258. InstrumentAboutInfo        RECORD 0
  259. p                         ds.l    1                ; offset: $0 (0)
  260. author                     ds        Str255            ; offset: $4 (4)
  261. copyright                 ds        Str255            ; offset: $104 (260)
  262. other                     ds        Str255            ; offset: $204 (516)
  263. sizeof                     EQU *                    ; size:   $304 (772)
  264.                         ENDR
  265.  
  266. kMusicPacketPortLost            EQU        1                    ; received when application loses the default input port 
  267. kMusicPacketPortFound            EQU        2                    ; received when application gets it back out from under someone else's claim 
  268. kMusicPacketTimeGap                EQU        3                    ; data[0] = number of milliseconds to keep the MIDI line silent 
  269. MusicMIDIPacket            RECORD 0
  270. length                     ds.w    1                ; offset: $0 (0)
  271. reserved                 ds.l    1                ; offset: $2 (2)        ;  if length zero, then reserved = above enum 
  272. data                     ds.b    249                ; offset: $6 (6)
  273.                          ORG 256
  274. sizeof                     EQU *                    ; size:   $100 (256)
  275.                         ENDR
  276.  
  277.  
  278.  
  279. notImplementedMusicErr            EQU        $8000F7E9
  280. cantSendToSynthesizerErr        EQU        $8000F7E8
  281. cantReceiveFromSynthesizerErr    EQU        $8000F7E7
  282. illegalVoiceAllocationErr        EQU        $8000F7E6
  283. illegalPartErr                    EQU        $8000F7E5
  284. illegalChannelErr                EQU        $8000F7E4
  285. illegalKnobErr                    EQU        $8000F7E3
  286. illegalKnobValueErr                EQU        $8000F7E2
  287. illegalInstrumentErr            EQU        $8000F7E1
  288. illegalControllerErr            EQU        $8000F7E0
  289. midiManagerAbsentErr            EQU        $8000F7DF
  290. synthesizerNotRespondingErr        EQU        $8000F7DE
  291. synthesizerErr                    EQU        $8000F7DD
  292. illegalNoteChannelErr            EQU        $8000F7DC
  293. noteChannelNotAllocatedErr        EQU        $8000F7DB
  294. tunePlayerFullErr                EQU        $8000F7DA
  295. tuneParseErr                    EQU        $8000F7D9
  296.  
  297. kGetAtomicInstNoExpandedSamples    EQU        $01
  298. kGetAtomicInstNoOriginalSamples    EQU        $02
  299. kGetAtomicInstNoSamples            EQU        $03
  300. kGetAtomicInstNoKnobList        EQU        $04
  301. kGetAtomicInstNoInstrumentInfo    EQU        $08
  302. kGetAtomicInstOriginalKnobList    EQU        $10
  303. kGetAtomicInstAllKnobs            EQU        $20                    ; return even those that are set to default
  304.  
  305. ;   For non-gm instruments, instrument number of tone description == 0
  306. ;   If you want to speed up while running, slam the inst num with what Get instrument number returns
  307. ;   All missing knobs are slammed to the default value
  308.  
  309.  
  310.  
  311. kSetAtomicInstKeepOriginalInstrument EQU $01
  312. kSetAtomicInstShareAcrossParts    EQU        $02                    ; inst disappears when app goes away
  313. kSetAtomicInstCallerTosses        EQU        $04                    ; the caller isn't keeping a copy around (for NASetAtomicInstrument)
  314. kSetAtomicInstCallerGuarantees    EQU        $08                    ; the caller guarantees a copy is around
  315. kSetAtomicInstInterruptSafe        EQU        $10                    ; dont move memory at this time (but process at next task time)
  316. kSetAtomicInstDontPreprocess    EQU        $80                    ; perform no further preprocessing because either 1)you know the instrument is digitally clean, or 2) you got it from a GetPartAtomic
  317.  
  318. kInstrumentNamesModifiable        EQU        1
  319. kInstrumentNamesBoth            EQU        2
  320. ; 
  321. ; * Structures specific to the GenericMusicComponent
  322. ; 
  323.  
  324.  
  325.  
  326. kGenericMusicComponentSubtype    EQU        'gene'
  327. GenericKnobDescription    RECORD 0
  328. kd                         ds        KnobDescription ; offset: $0 (0)
  329. hw1                         ds.l    1                ; offset: $54 (84)        ;  driver defined 
  330. hw2                         ds.l    1                ; offset: $58 (88)        ;  driver defined 
  331. hw3                         ds.l    1                ; offset: $5C (92)        ;  driver defined 
  332. settingsID                 ds.l    1                ; offset: $60 (96)        ;  resource ID list for boolean and popup names 
  333. sizeof                     EQU *                    ; size:   $64 (100)
  334.                         ENDR
  335. GenericKnobDescriptionList RECORD 0
  336. knobCount                 ds.l    1                ; offset: $0 (0)
  337. knob                     ds        GenericKnobDescription ; offset: $4 (4) <-- really an array of length one
  338. sizeof                     EQU *                    ; size:   $68 (104)
  339.                         ENDR
  340. ; typedef struct GenericKnobDescriptionList * GenericKnobDescriptionListPtr
  341.  
  342. ; typedef GenericKnobDescriptionListPtr * GenericKnobDescriptionListHandle
  343.  
  344. ;  knobTypes for MusicDerivedSetKnob 
  345.  
  346. kGenericMusicKnob                EQU        1
  347. kGenericMusicInstrumentKnob        EQU        2
  348. kGenericMusicDrumKnob            EQU        3
  349. kGenericMusicGlobalController    EQU        4
  350.  
  351.  
  352.  
  353. kGenericMusicResFirst            EQU        0
  354. kGenericMusicResMiscStringList    EQU        1                    ; STR# 1: synth name, 2:about author,3:aboutcopyright,4:aboutother 
  355. kGenericMusicResMiscLongList    EQU        2                    ; Long various params, see list below 
  356. kGenericMusicResInstrumentList    EQU        3                    ; NmLs of names and shorts, categories prefixed by '••' 
  357. kGenericMusicResDrumList        EQU        4                    ; NmLs of names and shorts 
  358. kGenericMusicResInstrumentKnobDescriptionList EQU 5            ; Knob 
  359. kGenericMusicResDrumKnobDescriptionList EQU 6                ; Knob 
  360. kGenericMusicResKnobDescriptionList EQU    7                    ; Knob 
  361. kGenericMusicResBitsLongList    EQU        8                    ; Long back to back bitmaps of controllers, gminstruments, and drums 
  362. kGenericMusicResModifiableInstrumentHW EQU 9                ; Shrt same as the hw shorts trailing the instrument names, a shortlist 
  363. kGenericMusicResGMTranslation    EQU        10                    ; Long 128 long entries, 1 for each gm inst, of local instrument numbers 1-n (not hw numbers) 
  364. kGenericMusicResROMInstrumentData EQU    11                    ; knob lists for ROM instruments, so the knob values may be known 
  365. kGenericMusicResAboutPICT        EQU        12                    ; picture for aboutlist. must be present for GetAbout call to work 
  366. kGenericMusicResLast            EQU        13
  367. ;  elements of the misc long list 
  368.  
  369. kGenericMusicMiscLongFirst        EQU        0
  370. kGenericMusicMiscLongVoiceCount    EQU        1
  371. kGenericMusicMiscLongPartCount    EQU        2
  372. kGenericMusicMiscLongModifiableInstrumentCount EQU 3
  373. kGenericMusicMiscLongChannelMask EQU    4
  374. kGenericMusicMiscLongDrumPartCount EQU    5
  375. kGenericMusicMiscLongModifiableDrumCount EQU 6
  376. kGenericMusicMiscLongDrumChannelMask EQU 7
  377. kGenericMusicMiscLongOutputCount EQU    8
  378. kGenericMusicMiscLongLatency    EQU        9
  379. kGenericMusicMiscLongFlags        EQU        10
  380. kGenericMusicMiscLongFirstGMHW    EQU        11                    ; number to add to locate GM main instruments 
  381. kGenericMusicMiscLongFirstGMDrumHW EQU    12                    ; number to add to locate GM drumkits 
  382. kGenericMusicMiscLongFirstUserHW EQU    13                    ; First hw number of user instruments (presumed sequential) 
  383. kGenericMusicMiscLongLast        EQU        14
  384. GCPart                    RECORD 0
  385. hwInstrumentNumber         ds.l    1                ; offset: $0 (0)        ;  internal number of recalled instrument 
  386. controller                 ds.w    128                ; offset: $4 (4)        ;  current values for all controllers 
  387. volume                     ds.l    1                ; offset: $104 (260)    ;  ctrl 7 is special case 
  388. polyphony                 ds.l    1                ; offset: $108 (264)
  389. midiChannel                 ds.l    1                ; offset: $10C (268)    ;  1-16 if in use 
  390. id                         ds        GCInstrumentData ; offset: $110 (272)    ;  ToneDescription & knoblist, uncertain length 
  391. sizeof                     EQU *                    ; size:   $164 (356)
  392.                         ENDR
  393. ; 
  394. ; * Calls specific to the GenericMusicComponent
  395. ; 
  396.  
  397.  
  398. kMusicGenericRange                EQU        $0100
  399. kMusicDerivedRange                EQU        $0200
  400. ; 
  401. ; * Flags in GenericMusicConfigure call
  402. ; 
  403.  
  404.  
  405. kGenericMusicDoMIDI                EQU        $01                    ; implement normal MIDI messages for note, controllers, and program changes 0-127 
  406. kGenericMusicBank0                EQU        $02                    ; implement instrument bank changes on controller 0 
  407. kGenericMusicBank32                EQU        $04                    ; implement instrument bank changes on controller 32 
  408. kGenericMusicErsatzMIDI            EQU        $08                    ; construct MIDI packets, but send them to the derived component 
  409. kGenericMusicCallKnobs            EQU        $10                    ; call the derived component with special knob format call 
  410. kGenericMusicCallParts            EQU        $20                    ; call the derived component with special part format call 
  411. kGenericMusicCallInstrument        EQU        $40                    ; call MusicDerivedSetInstrument for MusicSetInstrument calls 
  412. kGenericMusicCallNumber            EQU        $80                    ; call MusicDerivedSetPartInstrumentNumber for MusicSetPartInstrumentNumber calls, & don't send any C0 or bank stuff 
  413. kGenericMusicCallROMInstrument    EQU        $0100                ; call MusicSetInstrument for MusicSetPartInstrumentNumber for "ROM" instruments, passing params from the ROMi resource 
  414. kGenericMusicAllDefaults        EQU        $0200                ; indicates that when a new instrument is recalled, all knobs are reset to DEFAULT settings. True for GS modules 
  415.  
  416.  
  417.  
  418.  
  419. OfflineSampleType        RECORD 0
  420. numChannels                 ds.l    1                ; offset: $0 (0)        ; number of channels,  ie mono = 1
  421. sampleRate                 ds.l    1                ; offset: $4 (4)        ; sample rate in Apples Fixed point representation
  422. sampleSize                 ds.w    1                ; offset: $8 (8)        ; number of bits in sample
  423. sizeof                     EQU *                    ; size:   $A (10)
  424.                         ENDR
  425. InstrumentInfoRecord    RECORD 0
  426. instrumentNumber         ds.l    1                ; offset: $0 (0)        ;  instrument number (if 0, name is a catagory)
  427. flags                     ds.l    1                ; offset: $4 (4)        ;  show in picker, etc.
  428. toneNameIndex             ds.l    1                ; offset: $8 (8)        ;  index in toneNames (1 based)
  429. itxtNameAtomID             ds.l    1                ; offset: $C (12)        ;  index in itxtNames (itxt/name by index)
  430. sizeof                     EQU *                    ; size:   $10 (16)
  431.                         ENDR
  432. InstrumentInfoList        RECORD 0
  433. recordCount                 ds.l    1                ; offset: $0 (0)
  434. toneNames                 ds.l    1                ; offset: $4 (4)        ;  name from tone description
  435. itxtNames                 ds.l    1                ; offset: $8 (8)        ;  itxt/name atoms for instruments
  436. info                     ds        InstrumentInfoRecord ; offset: $C (12) <-- really an array of length one
  437. sizeof                     EQU *                    ; size:   $1C (28)
  438.                         ENDR
  439. ; typedef struct InstrumentInfoList *    InstrumentInfoListPtr
  440.  
  441. ; typedef InstrumentInfoListPtr *        InstrumentInfoListHandle
  442.  
  443. ;
  444. ; pascal ComponentResult MusicGetDescription(MusicComponent mc, SynthesizerDescription *sd)
  445. ;
  446.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  447.         Macro
  448.         _MusicGetDescription
  449.             move.l              #$00040001,-(sp)
  450.             moveq               #0,D0
  451.             dc.w                $A82A
  452.         EndM
  453.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  454.         IMPORT_CFM_FUNCTION MusicGetDescription
  455.     ENDIF
  456.  
  457. ;
  458. ; pascal ComponentResult MusicGetPart(MusicComponent mc, long part, long *midiChannel, long *polyphony)
  459. ;
  460.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  461.         Macro
  462.         _MusicGetPart
  463.             move.l              #$000C0002,-(sp)
  464.             moveq               #0,D0
  465.             dc.w                $A82A
  466.         EndM
  467.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  468.         IMPORT_CFM_FUNCTION MusicGetPart
  469.     ENDIF
  470.  
  471. ;
  472. ; pascal ComponentResult MusicSetPart(MusicComponent mc, long part, long midiChannel, long polyphony)
  473. ;
  474.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  475.         Macro
  476.         _MusicSetPart
  477.             move.l              #$000C0003,-(sp)
  478.             moveq               #0,D0
  479.             dc.w                $A82A
  480.         EndM
  481.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  482.         IMPORT_CFM_FUNCTION MusicSetPart
  483.     ENDIF
  484.  
  485. ;
  486. ; pascal ComponentResult MusicSetPartInstrumentNumber(MusicComponent mc, long part, long instrumentNumber)
  487. ;
  488.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  489.         Macro
  490.         _MusicSetPartInstrumentNumber
  491.             move.l              #$00080004,-(sp)
  492.             moveq               #0,D0
  493.             dc.w                $A82A
  494.         EndM
  495.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  496.         IMPORT_CFM_FUNCTION MusicSetPartInstrumentNumber
  497.     ENDIF
  498.  
  499.  
  500. ;
  501. ; pascal ComponentResult MusicGetPartInstrumentNumber(MusicComponent mc, long part)
  502. ;
  503.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  504.         Macro
  505.         _MusicGetPartInstrumentNumber
  506.             move.l              #$00040005,-(sp)
  507.             moveq               #0,D0
  508.             dc.w                $A82A
  509.         EndM
  510.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  511.         IMPORT_CFM_FUNCTION MusicGetPartInstrumentNumber
  512.     ENDIF
  513.  
  514. ;
  515. ; pascal ComponentResult MusicStorePartInstrument(MusicComponent mc, long part, long instrumentNumber)
  516. ;
  517.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  518.         Macro
  519.         _MusicStorePartInstrument
  520.             move.l              #$00080006,-(sp)
  521.             moveq               #0,D0
  522.             dc.w                $A82A
  523.         EndM
  524.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  525.         IMPORT_CFM_FUNCTION MusicStorePartInstrument
  526.     ENDIF
  527.  
  528.  
  529. ;
  530. ; pascal ComponentResult MusicGetPartAtomicInstrument(MusicComponent mc, long part, AtomicInstrument *ai, long flags)
  531. ;
  532.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  533.         Macro
  534.         _MusicGetPartAtomicInstrument
  535.             move.l              #$000C0009,-(sp)
  536.             moveq               #0,D0
  537.             dc.w                $A82A
  538.         EndM
  539.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  540.         IMPORT_CFM_FUNCTION MusicGetPartAtomicInstrument
  541.     ENDIF
  542.  
  543. ;
  544. ; pascal ComponentResult MusicSetPartAtomicInstrument(MusicComponent mc, long part, AtomicInstrumentPtr aiP, long flags)
  545. ;
  546.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  547.         Macro
  548.         _MusicSetPartAtomicInstrument
  549.             move.l              #$000C000A,-(sp)
  550.             moveq               #0,D0
  551.             dc.w                $A82A
  552.         EndM
  553.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  554.         IMPORT_CFM_FUNCTION MusicSetPartAtomicInstrument
  555.     ENDIF
  556.  
  557.  
  558. ;  Obsolete calls
  559. ;
  560. ; pascal ComponentResult MusicGetInstrumentKnobDescriptionObsolete(MusicComponent mc, long knobIndex, void *mkd)
  561. ;
  562.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  563.         Macro
  564.         _MusicGetInstrumentKnobDescriptionObsolete
  565.             move.l              #$0008000D,-(sp)
  566.             moveq               #0,D0
  567.             dc.w                $A82A
  568.         EndM
  569.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  570.         IMPORT_CFM_FUNCTION MusicGetInstrumentKnobDescriptionObsolete
  571.     ENDIF
  572.  
  573. ;
  574. ; pascal ComponentResult MusicGetDrumKnobDescriptionObsolete(MusicComponent mc, long knobIndex, void *mkd)
  575. ;
  576.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  577.         Macro
  578.         _MusicGetDrumKnobDescriptionObsolete
  579.             move.l              #$0008000E,-(sp)
  580.             moveq               #0,D0
  581.             dc.w                $A82A
  582.         EndM
  583.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  584.         IMPORT_CFM_FUNCTION MusicGetDrumKnobDescriptionObsolete
  585.     ENDIF
  586.  
  587. ;
  588. ; pascal ComponentResult MusicGetKnobDescriptionObsolete(MusicComponent mc, long knobIndex, void *mkd)
  589. ;
  590.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  591.         Macro
  592.         _MusicGetKnobDescriptionObsolete
  593.             move.l              #$0008000F,-(sp)
  594.             moveq               #0,D0
  595.             dc.w                $A82A
  596.         EndM
  597.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  598.         IMPORT_CFM_FUNCTION MusicGetKnobDescriptionObsolete
  599.     ENDIF
  600.  
  601. ;
  602. ; pascal ComponentResult MusicGetPartKnob(MusicComponent mc, long part, long knobID)
  603. ;
  604.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  605.         Macro
  606.         _MusicGetPartKnob
  607.             move.l              #$00080010,-(sp)
  608.             moveq               #0,D0
  609.             dc.w                $A82A
  610.         EndM
  611.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  612.         IMPORT_CFM_FUNCTION MusicGetPartKnob
  613.     ENDIF
  614.  
  615. ;
  616. ; pascal ComponentResult MusicSetPartKnob(MusicComponent mc, long part, long knobID, long knobValue)
  617. ;
  618.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  619.         Macro
  620.         _MusicSetPartKnob
  621.             move.l              #$000C0011,-(sp)
  622.             moveq               #0,D0
  623.             dc.w                $A82A
  624.         EndM
  625.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  626.         IMPORT_CFM_FUNCTION MusicSetPartKnob
  627.     ENDIF
  628.  
  629. ;
  630. ; pascal ComponentResult MusicGetKnob(MusicComponent mc, long knobID)
  631. ;
  632.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  633.         Macro
  634.         _MusicGetKnob
  635.             move.l              #$00040012,-(sp)
  636.             moveq               #0,D0
  637.             dc.w                $A82A
  638.         EndM
  639.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  640.         IMPORT_CFM_FUNCTION MusicGetKnob
  641.     ENDIF
  642.  
  643. ;
  644. ; pascal ComponentResult MusicSetKnob(MusicComponent mc, long knobID, long knobValue)
  645. ;
  646.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  647.         Macro
  648.         _MusicSetKnob
  649.             move.l              #$00080013,-(sp)
  650.             moveq               #0,D0
  651.             dc.w                $A82A
  652.         EndM
  653.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  654.         IMPORT_CFM_FUNCTION MusicSetKnob
  655.     ENDIF
  656.  
  657. ;
  658. ; pascal ComponentResult MusicGetPartName(MusicComponent mc, long part, StringPtr name)
  659. ;
  660.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  661.         Macro
  662.         _MusicGetPartName
  663.             move.l              #$00080014,-(sp)
  664.             moveq               #0,D0
  665.             dc.w                $A82A
  666.         EndM
  667.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  668.         IMPORT_CFM_FUNCTION MusicGetPartName
  669.     ENDIF
  670.  
  671. ;
  672. ; pascal ComponentResult MusicSetPartName(MusicComponent mc, long part, StringPtr name)
  673. ;
  674.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  675.         Macro
  676.         _MusicSetPartName
  677.             move.l              #$00080015,-(sp)
  678.             moveq               #0,D0
  679.             dc.w                $A82A
  680.         EndM
  681.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  682.         IMPORT_CFM_FUNCTION MusicSetPartName
  683.     ENDIF
  684.  
  685. ;
  686. ; pascal ComponentResult MusicFindTone(MusicComponent mc, ToneDescription *td, long *instrumentNumber, unsigned long *fit)
  687. ;
  688.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  689.         Macro
  690.         _MusicFindTone
  691.             move.l              #$000C0016,-(sp)
  692.             moveq               #0,D0
  693.             dc.w                $A82A
  694.         EndM
  695.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  696.         IMPORT_CFM_FUNCTION MusicFindTone
  697.     ENDIF
  698.  
  699. ;
  700. ; pascal ComponentResult MusicPlayNote(MusicComponent mc, long part, long pitch, long velocity)
  701. ;
  702.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  703.         Macro
  704.         _MusicPlayNote
  705.             move.l              #$000C0017,-(sp)
  706.             moveq               #0,D0
  707.             dc.w                $A82A
  708.         EndM
  709.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  710.         IMPORT_CFM_FUNCTION MusicPlayNote
  711.     ENDIF
  712.  
  713. ;
  714. ; pascal ComponentResult MusicResetPart(MusicComponent mc, long part)
  715. ;
  716.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  717.         Macro
  718.         _MusicResetPart
  719.             move.l              #$00040018,-(sp)
  720.             moveq               #0,D0
  721.             dc.w                $A82A
  722.         EndM
  723.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  724.         IMPORT_CFM_FUNCTION MusicResetPart
  725.     ENDIF
  726.  
  727. ;
  728. ; pascal ComponentResult MusicSetPartController(MusicComponent mc, long part, MusicController controllerNumber, long controllerValue)
  729. ;
  730.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  731.         Macro
  732.         _MusicSetPartController
  733.             move.l              #$000C0019,-(sp)
  734.             moveq               #0,D0
  735.             dc.w                $A82A
  736.         EndM
  737.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  738.         IMPORT_CFM_FUNCTION MusicSetPartController
  739.     ENDIF
  740.  
  741.  
  742. ;
  743. ; pascal ComponentResult MusicGetPartController(MusicComponent mc, long part, MusicController controllerNumber)
  744. ;
  745.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  746.         Macro
  747.         _MusicGetPartController
  748.             move.l              #$0008001A,-(sp)
  749.             moveq               #0,D0
  750.             dc.w                $A82A
  751.         EndM
  752.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  753.         IMPORT_CFM_FUNCTION MusicGetPartController
  754.     ENDIF
  755.  
  756. ;
  757. ; pascal ComponentResult MusicGetMIDIProc(MusicComponent mc, MusicMIDISendUPP *midiSendProc, long *refCon)
  758. ;
  759.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  760.         Macro
  761.         _MusicGetMIDIProc
  762.             move.l              #$0008001B,-(sp)
  763.             moveq               #0,D0
  764.             dc.w                $A82A
  765.         EndM
  766.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  767.         IMPORT_CFM_FUNCTION MusicGetMIDIProc
  768.     ENDIF
  769.  
  770. ;
  771. ; pascal ComponentResult MusicSetMIDIProc(MusicComponent mc, MusicMIDISendUPP midiSendProc, long refCon)
  772. ;
  773.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  774.         Macro
  775.         _MusicSetMIDIProc
  776.             move.l              #$0008001C,-(sp)
  777.             moveq               #0,D0
  778.             dc.w                $A82A
  779.         EndM
  780.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  781.         IMPORT_CFM_FUNCTION MusicSetMIDIProc
  782.     ENDIF
  783.  
  784. ;
  785. ; pascal ComponentResult MusicGetInstrumentNames(MusicComponent mc, long modifiableInstruments, Handle *instrumentNames, Handle *instrumentCategoryLasts, Handle *instrumentCategoryNames)
  786. ;
  787.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  788.         Macro
  789.         _MusicGetInstrumentNames
  790.             move.l              #$0010001D,-(sp)
  791.             moveq               #0,D0
  792.             dc.w                $A82A
  793.         EndM
  794.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  795.         IMPORT_CFM_FUNCTION MusicGetInstrumentNames
  796.     ENDIF
  797.  
  798. ;
  799. ; pascal ComponentResult MusicGetDrumNames(MusicComponent mc, long modifiableInstruments, Handle *instrumentNumbers, Handle *instrumentNames)
  800. ;
  801.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  802.         Macro
  803.         _MusicGetDrumNames
  804.             move.l              #$000C001E,-(sp)
  805.             moveq               #0,D0
  806.             dc.w                $A82A
  807.         EndM
  808.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  809.         IMPORT_CFM_FUNCTION MusicGetDrumNames
  810.     ENDIF
  811.  
  812. ;
  813. ; pascal ComponentResult MusicGetMasterTune(MusicComponent mc)
  814. ;
  815.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  816.         Macro
  817.         _MusicGetMasterTune
  818.             move.l              #$0000001F,-(sp)
  819.             moveq               #0,D0
  820.             dc.w                $A82A
  821.         EndM
  822.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  823.         IMPORT_CFM_FUNCTION MusicGetMasterTune
  824.     ENDIF
  825.  
  826. ;
  827. ; pascal ComponentResult MusicSetMasterTune(MusicComponent mc, long masterTune)
  828. ;
  829.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  830.         Macro
  831.         _MusicSetMasterTune
  832.             move.l              #$00040020,-(sp)
  833.             moveq               #0,D0
  834.             dc.w                $A82A
  835.         EndM
  836.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  837.         IMPORT_CFM_FUNCTION MusicSetMasterTune
  838.     ENDIF
  839.  
  840.  
  841. ;
  842. ; pascal ComponentResult MusicGetInstrumentAboutInfo(MusicComponent mc, long part, InstrumentAboutInfo *iai)
  843. ;
  844.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  845.         Macro
  846.         _MusicGetInstrumentAboutInfo
  847.             move.l              #$00080022,-(sp)
  848.             moveq               #0,D0
  849.             dc.w                $A82A
  850.         EndM
  851.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  852.         IMPORT_CFM_FUNCTION MusicGetInstrumentAboutInfo
  853.     ENDIF
  854.  
  855. ;
  856. ; pascal ComponentResult MusicGetDeviceConnection(MusicComponent mc, long index, long *id1, long *id2)
  857. ;
  858.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  859.         Macro
  860.         _MusicGetDeviceConnection
  861.             move.l              #$000C0023,-(sp)
  862.             moveq               #0,D0
  863.             dc.w                $A82A
  864.         EndM
  865.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  866.         IMPORT_CFM_FUNCTION MusicGetDeviceConnection
  867.     ENDIF
  868.  
  869. ;
  870. ; pascal ComponentResult MusicUseDeviceConnection(MusicComponent mc, long id1, long id2)
  871. ;
  872.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  873.         Macro
  874.         _MusicUseDeviceConnection
  875.             move.l              #$00080024,-(sp)
  876.             moveq               #0,D0
  877.             dc.w                $A82A
  878.         EndM
  879.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  880.         IMPORT_CFM_FUNCTION MusicUseDeviceConnection
  881.     ENDIF
  882.  
  883. ;
  884. ; pascal ComponentResult MusicGetKnobSettingStrings(MusicComponent mc, long knobIndex, long isGlobal, Handle *settingsNames, Handle *settingsCategoryLasts, Handle *settingsCategoryNames)
  885. ;
  886.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  887.         Macro
  888.         _MusicGetKnobSettingStrings
  889.             move.l              #$00140025,-(sp)
  890.             moveq               #0,D0
  891.             dc.w                $A82A
  892.         EndM
  893.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  894.         IMPORT_CFM_FUNCTION MusicGetKnobSettingStrings
  895.     ENDIF
  896.  
  897. ;
  898. ; pascal ComponentResult MusicGetMIDIPorts(MusicComponent mc, long *inputPortCount, long *outputPortCount)
  899. ;
  900.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  901.         Macro
  902.         _MusicGetMIDIPorts
  903.             move.l              #$00080026,-(sp)
  904.             moveq               #0,D0
  905.             dc.w                $A82A
  906.         EndM
  907.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  908.         IMPORT_CFM_FUNCTION MusicGetMIDIPorts
  909.     ENDIF
  910.  
  911. ;
  912. ; pascal ComponentResult MusicSendMIDI(MusicComponent mc, long portIndex, MusicMIDIPacket *mp)
  913. ;
  914.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  915.         Macro
  916.         _MusicSendMIDI
  917.             move.l              #$00080027,-(sp)
  918.             moveq               #0,D0
  919.             dc.w                $A82A
  920.         EndM
  921.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  922.         IMPORT_CFM_FUNCTION MusicSendMIDI
  923.     ENDIF
  924.  
  925. ;
  926. ; pascal ComponentResult MusicReceiveMIDI(MusicComponent mc, MusicMIDIReadHookUPP readHook, long refCon)
  927. ;
  928.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  929.         Macro
  930.         _MusicReceiveMIDI
  931.             move.l              #$00080028,-(sp)
  932.             moveq               #0,D0
  933.             dc.w                $A82A
  934.         EndM
  935.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  936.         IMPORT_CFM_FUNCTION MusicReceiveMIDI
  937.     ENDIF
  938.  
  939. ;
  940. ; pascal ComponentResult MusicStartOffline(MusicComponent mc, unsigned long *numChannels, UnsignedFixed *sampleRate, unsigned short *sampleSize, MusicOfflineDataUPP dataProc, long dataProcRefCon)
  941. ;
  942.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  943.         Macro
  944.         _MusicStartOffline
  945.             move.l              #$00140029,-(sp)
  946.             moveq               #0,D0
  947.             dc.w                $A82A
  948.         EndM
  949.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  950.         IMPORT_CFM_FUNCTION MusicStartOffline
  951.     ENDIF
  952.  
  953. ;
  954. ; pascal ComponentResult MusicSetOfflineTimeTo(MusicComponent mc, long newTimeStamp)
  955. ;
  956.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  957.         Macro
  958.         _MusicSetOfflineTimeTo
  959.             move.l              #$0004002A,-(sp)
  960.             moveq               #0,D0
  961.             dc.w                $A82A
  962.         EndM
  963.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  964.         IMPORT_CFM_FUNCTION MusicSetOfflineTimeTo
  965.     ENDIF
  966.  
  967. ;
  968. ; pascal ComponentResult MusicGetInstrumentKnobDescription(MusicComponent mc, long knobIndex, KnobDescription *mkd)
  969. ;
  970.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  971.         Macro
  972.         _MusicGetInstrumentKnobDescription
  973.             move.l              #$0008002B,-(sp)
  974.             moveq               #0,D0
  975.             dc.w                $A82A
  976.         EndM
  977.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  978.         IMPORT_CFM_FUNCTION MusicGetInstrumentKnobDescription
  979.     ENDIF
  980.  
  981. ;
  982. ; pascal ComponentResult MusicGetDrumKnobDescription(MusicComponent mc, long knobIndex, KnobDescription *mkd)
  983. ;
  984.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  985.         Macro
  986.         _MusicGetDrumKnobDescription
  987.             move.l              #$0008002C,-(sp)
  988.             moveq               #0,D0
  989.             dc.w                $A82A
  990.         EndM
  991.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  992.         IMPORT_CFM_FUNCTION MusicGetDrumKnobDescription
  993.     ENDIF
  994.  
  995. ;
  996. ; pascal ComponentResult MusicGetKnobDescription(MusicComponent mc, long knobIndex, KnobDescription *mkd)
  997. ;
  998.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  999.         Macro
  1000.         _MusicGetKnobDescription
  1001.             move.l              #$0008002D,-(sp)
  1002.             moveq               #0,D0
  1003.             dc.w                $A82A
  1004.         EndM
  1005.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1006.         IMPORT_CFM_FUNCTION MusicGetKnobDescription
  1007.     ENDIF
  1008.  
  1009. ;
  1010. ; pascal ComponentResult MusicGetInfoText(MusicComponent mc, long selector, Handle *textH, Handle *styleH)
  1011. ;
  1012.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1013.         Macro
  1014.         _MusicGetInfoText
  1015.             move.l              #$000C002E,-(sp)
  1016.             moveq               #0,D0
  1017.             dc.w                $A82A
  1018.         EndM
  1019.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1020.         IMPORT_CFM_FUNCTION MusicGetInfoText
  1021.     ENDIF
  1022.  
  1023.  
  1024. kGetInstrumentInfoNoBuiltIn        EQU        $01
  1025. kGetInstrumentInfoMidiUserInst    EQU        $02
  1026. kGetInstrumentInfoNoIText        EQU        $04
  1027. ;
  1028. ; pascal ComponentResult MusicGetInstrumentInfo(MusicComponent mc, long getInstrumentInfoFlags, InstrumentInfoListHandle *infoListH)
  1029. ;
  1030.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1031.         Macro
  1032.         _MusicGetInstrumentInfo
  1033.             move.l              #$0008002F,-(sp)
  1034.             moveq               #0,D0
  1035.             dc.w                $A82A
  1036.         EndM
  1037.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1038.         IMPORT_CFM_FUNCTION MusicGetInstrumentInfo
  1039.     ENDIF
  1040.  
  1041.  
  1042.  
  1043.  
  1044. ;
  1045. ; pascal ComponentResult MusicTask(MusicComponent mc)
  1046. ;
  1047.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1048.         Macro
  1049.         _MusicTask
  1050.             move.l              #$00000031,-(sp)
  1051.             moveq               #0,D0
  1052.             dc.w                $A82A
  1053.         EndM
  1054.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1055.         IMPORT_CFM_FUNCTION MusicTask
  1056.     ENDIF
  1057.  
  1058. ;
  1059. ; pascal ComponentResult MusicSetPartInstrumentNumberInterruptSafe(MusicComponent mc, long part, long instrumentNumber)
  1060. ;
  1061.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1062.         Macro
  1063.         _MusicSetPartInstrumentNumberInterruptSafe
  1064.             move.l              #$00080032,-(sp)
  1065.             moveq               #0,D0
  1066.             dc.w                $A82A
  1067.         EndM
  1068.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1069.         IMPORT_CFM_FUNCTION MusicSetPartInstrumentNumberInterruptSafe
  1070.     ENDIF
  1071.  
  1072. ;
  1073. ; pascal ComponentResult MusicSetPartSoundLocalization(MusicComponent mc, long part, Handle data)
  1074. ;
  1075.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1076.         Macro
  1077.         _MusicSetPartSoundLocalization
  1078.             move.l              #$00080033,-(sp)
  1079.             moveq               #0,D0
  1080.             dc.w                $A82A
  1081.         EndM
  1082.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1083.         IMPORT_CFM_FUNCTION MusicSetPartSoundLocalization
  1084.     ENDIF
  1085.  
  1086.  
  1087.  
  1088.  
  1089. ;
  1090. ; pascal ComponentResult MusicGenericConfigure(MusicComponent mc, long mode, long flags, long baseResID)
  1091. ;
  1092.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1093.         Macro
  1094.         _MusicGenericConfigure
  1095.             move.l              #$000C0100,-(sp)
  1096.             moveq               #0,D0
  1097.             dc.w                $A82A
  1098.         EndM
  1099.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1100.         IMPORT_CFM_FUNCTION MusicGenericConfigure
  1101.     ENDIF
  1102.  
  1103. ;
  1104. ; pascal ComponentResult MusicGenericGetPart(MusicComponent mc, long partNumber, GCPart **part)
  1105. ;
  1106.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1107.         Macro
  1108.         _MusicGenericGetPart
  1109.             move.l              #$00080101,-(sp)
  1110.             moveq               #0,D0
  1111.             dc.w                $A82A
  1112.         EndM
  1113.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1114.         IMPORT_CFM_FUNCTION MusicGenericGetPart
  1115.     ENDIF
  1116.  
  1117. ;
  1118. ; pascal ComponentResult MusicGenericGetKnobList(MusicComponent mc, long knobType, GenericKnobDescriptionListHandle *gkdlH)
  1119. ;
  1120.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1121.         Macro
  1122.         _MusicGenericGetKnobList
  1123.             move.l              #$00080102,-(sp)
  1124.             moveq               #0,D0
  1125.             dc.w                $A82A
  1126.         EndM
  1127.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1128.         IMPORT_CFM_FUNCTION MusicGenericGetKnobList
  1129.     ENDIF
  1130.  
  1131. ;
  1132. ; pascal ComponentResult MusicDerivedMIDISend(MusicComponent mc, MusicMIDIPacket *packet)
  1133. ;
  1134.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1135.         Macro
  1136.         _MusicDerivedMIDISend
  1137.             move.l              #$00040200,-(sp)
  1138.             moveq               #0,D0
  1139.             dc.w                $A82A
  1140.         EndM
  1141.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1142.         IMPORT_CFM_FUNCTION MusicDerivedMIDISend
  1143.     ENDIF
  1144.  
  1145. ;
  1146. ; pascal ComponentResult MusicDerivedSetKnob(MusicComponent mc, long knobType, long knobNumber, long knobValue, long partNumber, GCPart *p, GenericKnobDescription *gkd)
  1147. ;
  1148.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1149.         Macro
  1150.         _MusicDerivedSetKnob
  1151.             move.l              #$00180201,-(sp)
  1152.             moveq               #0,D0
  1153.             dc.w                $A82A
  1154.         EndM
  1155.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1156.         IMPORT_CFM_FUNCTION MusicDerivedSetKnob
  1157.     ENDIF
  1158.  
  1159. ;
  1160. ; pascal ComponentResult MusicDerivedSetPart(MusicComponent mc, long partNumber, GCPart *p)
  1161. ;
  1162.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1163.         Macro
  1164.         _MusicDerivedSetPart
  1165.             move.l              #$00080202,-(sp)
  1166.             moveq               #0,D0
  1167.             dc.w                $A82A
  1168.         EndM
  1169.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1170.         IMPORT_CFM_FUNCTION MusicDerivedSetPart
  1171.     ENDIF
  1172.  
  1173. ;
  1174. ; pascal ComponentResult MusicDerivedSetInstrument(MusicComponent mc, long partNumber, GCPart *p)
  1175. ;
  1176.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1177.         Macro
  1178.         _MusicDerivedSetInstrument
  1179.             move.l              #$00080203,-(sp)
  1180.             moveq               #0,D0
  1181.             dc.w                $A82A
  1182.         EndM
  1183.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1184.         IMPORT_CFM_FUNCTION MusicDerivedSetInstrument
  1185.     ENDIF
  1186.  
  1187. ;
  1188. ; pascal ComponentResult MusicDerivedSetPartInstrumentNumber(MusicComponent mc, long partNumber, GCPart *p)
  1189. ;
  1190.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1191.         Macro
  1192.         _MusicDerivedSetPartInstrumentNumber
  1193.             move.l              #$00080204,-(sp)
  1194.             moveq               #0,D0
  1195.             dc.w                $A82A
  1196.         EndM
  1197.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1198.         IMPORT_CFM_FUNCTION MusicDerivedSetPartInstrumentNumber
  1199.     ENDIF
  1200.  
  1201. ;
  1202. ; pascal ComponentResult MusicDerivedSetMIDI(MusicComponent mc, MusicMIDISendProcPtr midiProc, long refcon, long midiChannel)
  1203. ;
  1204.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1205.         Macro
  1206.         _MusicDerivedSetMIDI
  1207.             move.l              #$000C0205,-(sp)
  1208.             moveq               #0,D0
  1209.             dc.w                $A82A
  1210.         EndM
  1211.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1212.         IMPORT_CFM_FUNCTION MusicDerivedSetMIDI
  1213.     ENDIF
  1214.  
  1215. ;
  1216. ; pascal ComponentResult MusicDerivedStorePartInstrument(MusicComponent mc, long partNumber, GCPart *p, long instrumentNumber)
  1217. ;
  1218.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1219.         Macro
  1220.         _MusicDerivedStorePartInstrument
  1221.             move.l              #$000C0206,-(sp)
  1222.             moveq               #0,D0
  1223.             dc.w                $A82A
  1224.         EndM
  1225.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1226.         IMPORT_CFM_FUNCTION MusicDerivedStorePartInstrument
  1227.     ENDIF
  1228.  
  1229.  
  1230.  
  1231.  
  1232. ;  Mask bit for returned value by InstrumentFind.
  1233.  
  1234. kInstrumentExactMatch            EQU        $00020000
  1235. kInstrumentRecommendedSubstitute EQU    $00010000
  1236. kInstrumentQualityField            EQU        $FF000000
  1237. kInstrumentRoland8BitQuality    EQU        $05000000
  1238. ; typedef struct InstrumentAboutInfo *    InstrumentAboutInfoPtr
  1239.  
  1240. ; typedef InstrumentAboutInfoPtr *        InstrumentAboutInfoHandle
  1241.  
  1242. GMInstrumentInfo        RECORD 0
  1243. cmpInstID                 ds.l    1                ; offset: $0 (0)
  1244. gmInstNum                 ds.l    1                ; offset: $4 (4)
  1245. instMatch                 ds.l    1                ; offset: $8 (8)
  1246. sizeof                     EQU *                    ; size:   $C (12)
  1247.                         ENDR
  1248. ; typedef struct GMInstrumentInfo *        GMInstrumentInfoPtr
  1249.  
  1250. ; typedef GMInstrumentInfoPtr *            GMInstrumentInfoHandle
  1251.  
  1252. nonGMInstrumentInfoRecord RECORD 0
  1253. cmpInstID                 ds.l    1                ; offset: $0 (0)        ;  if 0, category name
  1254. flags                     ds.l    1                ; offset: $4 (4)        ;  match, show in picker
  1255. toneNameIndex             ds.l    1                ; offset: $8 (8)        ;  index in toneNames (1 based)
  1256. itxtNameAtomID             ds.l    1                ; offset: $C (12)        ;  index in itxtNames (itxt/name by index)
  1257. sizeof                     EQU *                    ; size:   $10 (16)
  1258.                         ENDR
  1259. nonGMInstrumentInfo        RECORD 0
  1260. recordCount                 ds.l    1                ; offset: $0 (0)
  1261. toneNames                 ds.l    1                ; offset: $4 (4)        ;  name from tone description
  1262. itxtNames                 ds.l    1                ; offset: $8 (8)        ;  itext/name atoms for instruments
  1263. instInfo                 ds        nonGMInstrumentInfoRecord ; offset: $C (12) <-- really an array of length one
  1264. sizeof                     EQU *                    ; size:   $1C (28)
  1265.                         ENDR
  1266. ; typedef struct nonGMInstrumentInfo *    nonGMInstrumentInfoPtr
  1267.  
  1268. ; typedef nonGMInstrumentInfoPtr *        nonGMInstrumentInfoHandle
  1269.  
  1270. InstCompInfo            RECORD 0
  1271. infoSize                 ds.l    1                ; offset: $0 (0)        ;  size of this record
  1272. InstrumentLibraryName     ds        Str31            ; offset: $4 (4)
  1273. InstrumentLibraryITxt     ds.l    1                ; offset: $24 (36)        ;  itext/name atoms for instruments
  1274. GMinstrumentCount         ds.l    1                ; offset: $28 (40)
  1275. GMinstrumentInfo         ds.l    1                ; offset: $2C (44)
  1276. GMdrumCount                 ds.l    1                ; offset: $30 (48)
  1277. GMdrumInfo                 ds.l    1                ; offset: $34 (52)
  1278. nonGMinstrumentCount     ds.l    1                ; offset: $38 (56)
  1279. nonGMinstrumentInfo         ds.l    1                ; offset: $3C (60)
  1280. sizeof                     EQU *                    ; size:   $40 (64)
  1281.                         ENDR
  1282. ; typedef struct InstCompInfo *            InstCompInfoPtr
  1283.  
  1284. ; typedef InstCompInfoPtr *                InstCompInfoHandle
  1285.  
  1286. ;
  1287. ; pascal ComponentResult InstrumentGetInst(ComponentInstance ci, long instID, AtomicInstrument *atomicInst, long flags)
  1288. ;
  1289.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1290.         Macro
  1291.         _InstrumentGetInst
  1292.             move.l              #$000C0001,-(sp)
  1293.             moveq               #0,D0
  1294.             dc.w                $A82A
  1295.         EndM
  1296.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1297.         IMPORT_CFM_FUNCTION InstrumentGetInst
  1298.     ENDIF
  1299.  
  1300. ;
  1301. ; pascal ComponentResult InstrumentGetInfo(ComponentInstance ci, long getInstrumentInfoFlags, InstCompInfoHandle *instInfo)
  1302. ;
  1303.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1304.         Macro
  1305.         _InstrumentGetInfo
  1306.             move.l              #$00080002,-(sp)
  1307.             moveq               #0,D0
  1308.             dc.w                $A82A
  1309.         EndM
  1310.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1311.         IMPORT_CFM_FUNCTION InstrumentGetInfo
  1312.     ENDIF
  1313.  
  1314. ;
  1315. ; pascal ComponentResult InstrumentInitialize(ComponentInstance ci, long initFormat, void *initParams)
  1316. ;
  1317.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1318.         Macro
  1319.         _InstrumentInitialize
  1320.             move.l              #$00080003,-(sp)
  1321.             moveq               #0,D0
  1322.             dc.w                $A82A
  1323.         EndM
  1324.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1325.         IMPORT_CFM_FUNCTION InstrumentInitialize
  1326.     ENDIF
  1327.  
  1328. ;
  1329. ; pascal ComponentResult InstrumentOpenComponentResFile(ComponentInstance ci, short *resFile)
  1330. ;
  1331.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1332.         Macro
  1333.         _InstrumentOpenComponentResFile
  1334.             move.l              #$00040004,-(sp)
  1335.             moveq               #0,D0
  1336.             dc.w                $A82A
  1337.         EndM
  1338.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1339.         IMPORT_CFM_FUNCTION InstrumentOpenComponentResFile
  1340.     ENDIF
  1341.  
  1342. ;
  1343. ; pascal ComponentResult InstrumentCloseComponentResFile(ComponentInstance ci, short resFile)
  1344. ;
  1345.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1346.         Macro
  1347.         _InstrumentCloseComponentResFile
  1348.             move.l              #$00020005,-(sp)
  1349.             moveq               #0,D0
  1350.             dc.w                $A82A
  1351.         EndM
  1352.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1353.         IMPORT_CFM_FUNCTION InstrumentCloseComponentResFile
  1354.     ENDIF
  1355.  
  1356. ;
  1357. ; pascal ComponentResult InstrumentGetComponentRefCon(ComponentInstance ci, void **refCon)
  1358. ;
  1359.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1360.         Macro
  1361.         _InstrumentGetComponentRefCon
  1362.             move.l              #$00040006,-(sp)
  1363.             moveq               #0,D0
  1364.             dc.w                $A82A
  1365.         EndM
  1366.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1367.         IMPORT_CFM_FUNCTION InstrumentGetComponentRefCon
  1368.     ENDIF
  1369.  
  1370. ;
  1371. ; pascal ComponentResult InstrumentSetComponentRefCon(ComponentInstance ci, void *refCon)
  1372. ;
  1373.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1374.         Macro
  1375.         _InstrumentSetComponentRefCon
  1376.             move.l              #$00040007,-(sp)
  1377.             moveq               #0,D0
  1378.             dc.w                $A82A
  1379.         EndM
  1380.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1381.         IMPORT_CFM_FUNCTION InstrumentSetComponentRefCon
  1382.     ENDIF
  1383.  
  1384.  
  1385.  
  1386. ; --------------------------
  1387. ;    Types
  1388. ;--------------------------
  1389.  
  1390.  
  1391.  
  1392. kSynthesizerConnectionMono        EQU        1                    ; if set, and synth can be mono/poly, then the partCount channels from the system channel are hogged 
  1393. kSynthesizerConnectionMMgr        EQU        2                    ; this connection imported from the MIDI Mgr 
  1394. kSynthesizerConnectionOMS        EQU        4                    ; this connection imported from OMS 
  1395. kSynthesizerConnectionQT        EQU        8                    ; this connection is a QuickTime-only port 
  1396. kSynthesizerConnectionFMS        EQU        16                    ; this connection imported from FMS 
  1397. ;  used for MIDI device only 
  1398. SynthesizerConnections    RECORD 0
  1399. clientID                 ds.l    1                ; offset: $0 (0)
  1400. inputPortID                 ds.l    1                ; offset: $4 (4)        ;  terminology death: this port is used to SEND to the midi synth 
  1401. outputPortID             ds.l    1                ; offset: $8 (8)        ;  terminology death: this port receives from a keyboard or other control device 
  1402. midiChannel                 ds.l    1                ; offset: $C (12)        ;  The system channel; others are configurable (or the nubus slot number) 
  1403. flags                     ds.l    1                ; offset: $10 (16)
  1404. unique                     ds.l    1                ; offset: $14 (20)        ;  unique id may be used instead of index, to getinfo and unregister calls 
  1405. reserved1                 ds.l    1                ; offset: $18 (24)        ;  should be zero 
  1406. reserved2                 ds.l    1                ; offset: $1C (28)        ;  should be zero 
  1407. sizeof                     EQU *                    ; size:   $20 (32)
  1408.                         ENDR
  1409. QTMIDIPort                RECORD 0
  1410. portConnections             ds        SynthesizerConnections ; offset: $0 (0)
  1411. portName                 ds        Str63            ; offset: $20 (32)
  1412. sizeof                     EQU *                    ; size:   $60 (96)
  1413.                         ENDR
  1414.  
  1415. kNoteRequestNoGM                EQU        1                    ; dont degrade to a GM synth 
  1416. kNoteRequestNoSynthType            EQU        2                    ; dont degrade to another synth of same type but different name 
  1417. kNoteRequestSynthMustMatch        EQU        4                    ; synthType must be a match, including kGMSynthComponentSubType 
  1418. ; typedef ComponentInstance             NoteAllocator
  1419.  
  1420. NoteRequestInfo            RECORD 0
  1421. flags                     ds.b    1                ; offset: $0 (0)        ;  1: dont accept GM match, 2: dont accept same-synth-type match 
  1422. reserved                 ds.b    1                ; offset: $1 (1)        ;  must be zero 
  1423. polyphony                 ds.w    1                ; offset: $2 (2)        ;  Maximum number of voices 
  1424. typicalPolyphony         ds.l    1                ; offset: $4 (4)        ;  Hint for level mixing 
  1425. sizeof                     EQU *                    ; size:   $8 (8)
  1426.                         ENDR
  1427. NoteRequest                RECORD 0
  1428. info                     ds        NoteRequestInfo ; offset: $0 (0)
  1429. tone                     ds        ToneDescription ; offset: $8 (8)
  1430. sizeof                     EQU *                    ; size:   $54 (84)
  1431.                         ENDR
  1432.  
  1433.  
  1434.  
  1435.  
  1436.  
  1437. kPickDontMix                    EQU        1                    ; dont mix instruments with drum sounds 
  1438. kPickSameSynth                    EQU        2                    ; only allow the same device that went in, to come out 
  1439. kPickUserInsts                    EQU        4                    ; show user insts in addition to ROM voices 
  1440. kPickEditAllowEdit                EQU        8                    ; lets user switch over to edit mode 
  1441. kPickEditAllowPick                EQU        16                    ; lets the user switch over to pick mode 
  1442. kPickEditSynthGlobal            EQU        32                    ; edit the global knobs of the synth 
  1443. kPickEditControllers            EQU        64                    ; edit the controllers of the notechannel 
  1444.  
  1445.  
  1446. kNoteAllocatorComponentType        EQU        'nota'
  1447.  
  1448. ; --------------------------------
  1449. ;    Note Allocator Prototypes
  1450. ;--------------------------------
  1451.  
  1452. ;
  1453. ; pascal ComponentResult NARegisterMusicDevice(NoteAllocator ci, OSType synthType, Str31 name, SynthesizerConnections *connections)
  1454. ;
  1455.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1456.         Macro
  1457.         _NARegisterMusicDevice
  1458.             move.l              #$000C0000,-(sp)
  1459.             moveq               #0,D0
  1460.             dc.w                $A82A
  1461.         EndM
  1462.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1463.         IMPORT_CFM_FUNCTION NARegisterMusicDevice
  1464.     ENDIF
  1465.  
  1466. ;
  1467. ; pascal ComponentResult NAUnregisterMusicDevice(NoteAllocator ci, long index)
  1468. ;
  1469.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1470.         Macro
  1471.         _NAUnregisterMusicDevice
  1472.             move.l              #$00040001,-(sp)
  1473.             moveq               #0,D0
  1474.             dc.w                $A82A
  1475.         EndM
  1476.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1477.         IMPORT_CFM_FUNCTION NAUnregisterMusicDevice
  1478.     ENDIF
  1479.  
  1480. ;
  1481. ; pascal ComponentResult NAGetRegisteredMusicDevice(NoteAllocator ci, long index, OSType *synthType, Str31 name, SynthesizerConnections *connections, MusicComponent *mc)
  1482. ;
  1483.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1484.         Macro
  1485.         _NAGetRegisteredMusicDevice
  1486.             move.l              #$00140002,-(sp)
  1487.             moveq               #0,D0
  1488.             dc.w                $A82A
  1489.         EndM
  1490.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1491.         IMPORT_CFM_FUNCTION NAGetRegisteredMusicDevice
  1492.     ENDIF
  1493.  
  1494. ;
  1495. ; pascal ComponentResult NASaveMusicConfiguration(NoteAllocator ci)
  1496. ;
  1497.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1498.         Macro
  1499.         _NASaveMusicConfiguration
  1500.             move.l              #$00000003,-(sp)
  1501.             moveq               #0,D0
  1502.             dc.w                $A82A
  1503.         EndM
  1504.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1505.         IMPORT_CFM_FUNCTION NASaveMusicConfiguration
  1506.     ENDIF
  1507.  
  1508. ;
  1509. ; pascal ComponentResult NANewNoteChannel(NoteAllocator ci, NoteRequest *noteRequest, NoteChannel *outChannel)
  1510. ;
  1511.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1512.         Macro
  1513.         _NANewNoteChannel
  1514.             move.l              #$00080004,-(sp)
  1515.             moveq               #0,D0
  1516.             dc.w                $A82A
  1517.         EndM
  1518.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1519.         IMPORT_CFM_FUNCTION NANewNoteChannel
  1520.     ENDIF
  1521.  
  1522. ;
  1523. ; pascal ComponentResult NADisposeNoteChannel(NoteAllocator ci, NoteChannel noteChannel)
  1524. ;
  1525.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1526.         Macro
  1527.         _NADisposeNoteChannel
  1528.             move.l              #$00040005,-(sp)
  1529.             moveq               #0,D0
  1530.             dc.w                $A82A
  1531.         EndM
  1532.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1533.         IMPORT_CFM_FUNCTION NADisposeNoteChannel
  1534.     ENDIF
  1535.  
  1536. ;
  1537. ; pascal ComponentResult NAGetNoteChannelInfo(NoteAllocator ci, NoteChannel noteChannel, long *index, long *part)
  1538. ;
  1539.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1540.         Macro
  1541.         _NAGetNoteChannelInfo
  1542.             move.l              #$000C0006,-(sp)
  1543.             moveq               #0,D0
  1544.             dc.w                $A82A
  1545.         EndM
  1546.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1547.         IMPORT_CFM_FUNCTION NAGetNoteChannelInfo
  1548.     ENDIF
  1549.  
  1550. ;
  1551. ; pascal ComponentResult NAPrerollNoteChannel(NoteAllocator ci, NoteChannel noteChannel)
  1552. ;
  1553.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1554.         Macro
  1555.         _NAPrerollNoteChannel
  1556.             move.l              #$00040007,-(sp)
  1557.             moveq               #0,D0
  1558.             dc.w                $A82A
  1559.         EndM
  1560.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1561.         IMPORT_CFM_FUNCTION NAPrerollNoteChannel
  1562.     ENDIF
  1563.  
  1564. ;
  1565. ; pascal ComponentResult NAUnrollNoteChannel(NoteAllocator ci, NoteChannel noteChannel)
  1566. ;
  1567.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1568.         Macro
  1569.         _NAUnrollNoteChannel
  1570.             move.l              #$00040008,-(sp)
  1571.             moveq               #0,D0
  1572.             dc.w                $A82A
  1573.         EndM
  1574.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1575.         IMPORT_CFM_FUNCTION NAUnrollNoteChannel
  1576.     ENDIF
  1577.  
  1578.  
  1579. ;
  1580. ; pascal ComponentResult NASetNoteChannelVolume(NoteAllocator ci, NoteChannel noteChannel, Fixed volume)
  1581. ;
  1582.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1583.         Macro
  1584.         _NASetNoteChannelVolume
  1585.             move.l              #$0008000B,-(sp)
  1586.             moveq               #0,D0
  1587.             dc.w                $A82A
  1588.         EndM
  1589.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1590.         IMPORT_CFM_FUNCTION NASetNoteChannelVolume
  1591.     ENDIF
  1592.  
  1593. ;
  1594. ; pascal ComponentResult NAResetNoteChannel(NoteAllocator ci, NoteChannel noteChannel)
  1595. ;
  1596.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1597.         Macro
  1598.         _NAResetNoteChannel
  1599.             move.l              #$0004000C,-(sp)
  1600.             moveq               #0,D0
  1601.             dc.w                $A82A
  1602.         EndM
  1603.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1604.         IMPORT_CFM_FUNCTION NAResetNoteChannel
  1605.     ENDIF
  1606.  
  1607. ;
  1608. ; pascal ComponentResult NAPlayNote(NoteAllocator ci, NoteChannel noteChannel, long pitch, long velocity)
  1609. ;
  1610.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1611.         Macro
  1612.         _NAPlayNote
  1613.             move.l              #$000C000D,-(sp)
  1614.             moveq               #0,D0
  1615.             dc.w                $A82A
  1616.         EndM
  1617.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1618.         IMPORT_CFM_FUNCTION NAPlayNote
  1619.     ENDIF
  1620.  
  1621. ;
  1622. ; pascal ComponentResult NASetController(NoteAllocator ci, NoteChannel noteChannel, long controllerNumber, long controllerValue)
  1623. ;
  1624.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1625.         Macro
  1626.         _NASetController
  1627.             move.l              #$000C000E,-(sp)
  1628.             moveq               #0,D0
  1629.             dc.w                $A82A
  1630.         EndM
  1631.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1632.         IMPORT_CFM_FUNCTION NASetController
  1633.     ENDIF
  1634.  
  1635. ;
  1636. ; pascal ComponentResult NASetKnob(NoteAllocator ci, NoteChannel noteChannel, long knobNumber, long knobValue)
  1637. ;
  1638.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1639.         Macro
  1640.         _NASetKnob
  1641.             move.l              #$000C000F,-(sp)
  1642.             moveq               #0,D0
  1643.             dc.w                $A82A
  1644.         EndM
  1645.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1646.         IMPORT_CFM_FUNCTION NASetKnob
  1647.     ENDIF
  1648.  
  1649. ;
  1650. ; pascal ComponentResult NAFindNoteChannelTone(NoteAllocator ci, NoteChannel noteChannel, ToneDescription *td, long *instrumentNumber)
  1651. ;
  1652.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1653.         Macro
  1654.         _NAFindNoteChannelTone
  1655.             move.l              #$000C0010,-(sp)
  1656.             moveq               #0,D0
  1657.             dc.w                $A82A
  1658.         EndM
  1659.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1660.         IMPORT_CFM_FUNCTION NAFindNoteChannelTone
  1661.     ENDIF
  1662.  
  1663. ;
  1664. ; pascal ComponentResult NASetInstrumentNumber(NoteAllocator ci, NoteChannel noteChannel, long instrumentNumber)
  1665. ;
  1666.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1667.         Macro
  1668.         _NASetInstrumentNumber
  1669.             move.l              #$00080011,-(sp)
  1670.             moveq               #0,D0
  1671.             dc.w                $A82A
  1672.         EndM
  1673.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1674.         IMPORT_CFM_FUNCTION NASetInstrumentNumber
  1675.     ENDIF
  1676.  
  1677.  
  1678.  
  1679. ;
  1680. ; pascal ComponentResult NAPickInstrument(NoteAllocator ci, ModalFilterUPP filterProc, StringPtr prompt, ToneDescription *sd, unsigned long flags, long refCon, long reserved1, long reserved2)
  1681. ;
  1682.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1683.         Macro
  1684.         _NAPickInstrument
  1685.             move.l              #$001C0012,-(sp)
  1686.             moveq               #0,D0
  1687.             dc.w                $A82A
  1688.         EndM
  1689.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1690.         IMPORT_CFM_FUNCTION NAPickInstrument
  1691.     ENDIF
  1692.  
  1693. ;
  1694. ; pascal ComponentResult NAPickArrangement(NoteAllocator ci, ModalFilterUPP filterProc, StringPtr prompt, long zero1, long zero2, Track t, StringPtr songName)
  1695. ;
  1696.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1697.         Macro
  1698.         _NAPickArrangement
  1699.             move.l              #$00180013,-(sp)
  1700.             moveq               #0,D0
  1701.             dc.w                $A82A
  1702.         EndM
  1703.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1704.         IMPORT_CFM_FUNCTION NAPickArrangement
  1705.     ENDIF
  1706.  
  1707.  
  1708. ;
  1709. ; pascal ComponentResult NASetDefaultMIDIInput(NoteAllocator ci, SynthesizerConnections *sc)
  1710. ;
  1711.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1712.         Macro
  1713.         _NASetDefaultMIDIInput
  1714.             move.l              #$00040015,-(sp)
  1715.             moveq               #0,D0
  1716.             dc.w                $A82A
  1717.         EndM
  1718.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1719.         IMPORT_CFM_FUNCTION NASetDefaultMIDIInput
  1720.     ENDIF
  1721.  
  1722. ;
  1723. ; pascal ComponentResult NAGetDefaultMIDIInput(NoteAllocator ci, SynthesizerConnections *sc)
  1724. ;
  1725.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1726.         Macro
  1727.         _NAGetDefaultMIDIInput
  1728.             move.l              #$00040016,-(sp)
  1729.             moveq               #0,D0
  1730.             dc.w                $A82A
  1731.         EndM
  1732.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1733.         IMPORT_CFM_FUNCTION NAGetDefaultMIDIInput
  1734.     ENDIF
  1735.  
  1736.  
  1737. ;
  1738. ; pascal ComponentResult NAUseDefaultMIDIInput(NoteAllocator ci, MusicMIDIReadHookUPP readHook, long refCon, unsigned long flags)
  1739. ;
  1740.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1741.         Macro
  1742.         _NAUseDefaultMIDIInput
  1743.             move.l              #$000C0019,-(sp)
  1744.             moveq               #0,D0
  1745.             dc.w                $A82A
  1746.         EndM
  1747.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1748.         IMPORT_CFM_FUNCTION NAUseDefaultMIDIInput
  1749.     ENDIF
  1750.  
  1751. ;
  1752. ; pascal ComponentResult NALoseDefaultMIDIInput(NoteAllocator ci)
  1753. ;
  1754.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1755.         Macro
  1756.         _NALoseDefaultMIDIInput
  1757.             move.l              #$0000001A,-(sp)
  1758.             moveq               #0,D0
  1759.             dc.w                $A82A
  1760.         EndM
  1761.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1762.         IMPORT_CFM_FUNCTION NALoseDefaultMIDIInput
  1763.     ENDIF
  1764.  
  1765. ;
  1766. ; pascal ComponentResult NAStuffToneDescription(NoteAllocator ci, long gmNumber, ToneDescription *td)
  1767. ;
  1768.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1769.         Macro
  1770.         _NAStuffToneDescription
  1771.             move.l              #$0008001B,-(sp)
  1772.             moveq               #0,D0
  1773.             dc.w                $A82A
  1774.         EndM
  1775.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1776.         IMPORT_CFM_FUNCTION NAStuffToneDescription
  1777.     ENDIF
  1778.  
  1779. ;
  1780. ; pascal ComponentResult NACopyrightDialog(NoteAllocator ci, PicHandle p, StringPtr author, StringPtr copyright, StringPtr other, StringPtr title, ModalFilterUPP filterProc, long refCon)
  1781. ;
  1782.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1783.         Macro
  1784.         _NACopyrightDialog
  1785.             move.l              #$001C001C,-(sp)
  1786.             moveq               #0,D0
  1787.             dc.w                $A82A
  1788.         EndM
  1789.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1790.         IMPORT_CFM_FUNCTION NACopyrightDialog
  1791.     ENDIF
  1792.  
  1793.  
  1794.  
  1795. ;      kNADummyOneSelect = 29
  1796. ;      kNADummyTwoSelect = 30
  1797.  
  1798.  
  1799.  
  1800. ;
  1801. ; pascal ComponentResult NAGetIndNoteChannel(NoteAllocator ci, long index, NoteChannel *nc, long *seed)
  1802. ;
  1803.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1804.         Macro
  1805.         _NAGetIndNoteChannel
  1806.             move.l              #$000C001F,-(sp)
  1807.             moveq               #0,D0
  1808.             dc.w                $A82A
  1809.         EndM
  1810.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1811.         IMPORT_CFM_FUNCTION NAGetIndNoteChannel
  1812.     ENDIF
  1813.  
  1814.  
  1815. ;
  1816. ; pascal ComponentResult NAGetMIDIPorts(NoteAllocator ci, Handle *inputPorts, Handle *outputPorts)
  1817. ;
  1818.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1819.         Macro
  1820.         _NAGetMIDIPorts
  1821.             move.l              #$00080021,-(sp)
  1822.             moveq               #0,D0
  1823.             dc.w                $A82A
  1824.         EndM
  1825.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1826.         IMPORT_CFM_FUNCTION NAGetMIDIPorts
  1827.     ENDIF
  1828.  
  1829. ;
  1830. ; pascal ComponentResult NAGetNoteRequest(NoteAllocator ci, NoteChannel noteChannel, NoteRequest *nrOut)
  1831. ;
  1832.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1833.         Macro
  1834.         _NAGetNoteRequest
  1835.             move.l              #$00080022,-(sp)
  1836.             moveq               #0,D0
  1837.             dc.w                $A82A
  1838.         EndM
  1839.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1840.         IMPORT_CFM_FUNCTION NAGetNoteRequest
  1841.     ENDIF
  1842.  
  1843. ;
  1844. ; pascal ComponentResult NASendMIDI(NoteAllocator ci, NoteChannel noteChannel, MusicMIDIPacket *mp)
  1845. ;
  1846.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1847.         Macro
  1848.         _NASendMIDI
  1849.             move.l              #$00080023,-(sp)
  1850.             moveq               #0,D0
  1851.             dc.w                $A82A
  1852.         EndM
  1853.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1854.         IMPORT_CFM_FUNCTION NASendMIDI
  1855.     ENDIF
  1856.  
  1857. ;
  1858. ; pascal ComponentResult NAPickEditInstrument(NoteAllocator ci, ModalFilterUPP filterProc, StringPtr prompt, long refCon, NoteChannel nc, AtomicInstrument ai, long flags)
  1859. ;
  1860.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1861.         Macro
  1862.         _NAPickEditInstrument
  1863.             move.l              #$00180024,-(sp)
  1864.             moveq               #0,D0
  1865.             dc.w                $A82A
  1866.         EndM
  1867.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1868.         IMPORT_CFM_FUNCTION NAPickEditInstrument
  1869.     ENDIF
  1870.  
  1871. ;
  1872. ; pascal ComponentResult NANewNoteChannelFromAtomicInstrument(NoteAllocator ci, AtomicInstrumentPtr instrument, long flags, NoteChannel *outChannel)
  1873. ;
  1874.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1875.         Macro
  1876.         _NANewNoteChannelFromAtomicInstrument
  1877.             move.l              #$000C0025,-(sp)
  1878.             moveq               #0,D0
  1879.             dc.w                $A82A
  1880.         EndM
  1881.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1882.         IMPORT_CFM_FUNCTION NANewNoteChannelFromAtomicInstrument
  1883.     ENDIF
  1884.  
  1885. ;
  1886. ; pascal ComponentResult NASetAtomicInstrument(NoteAllocator ci, NoteChannel noteChannel, AtomicInstrumentPtr instrument, long flags)
  1887. ;
  1888.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1889.         Macro
  1890.         _NASetAtomicInstrument
  1891.             move.l              #$000C0026,-(sp)
  1892.             moveq               #0,D0
  1893.             dc.w                $A82A
  1894.         EndM
  1895.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1896.         IMPORT_CFM_FUNCTION NASetAtomicInstrument
  1897.     ENDIF
  1898.  
  1899.  
  1900.  
  1901. ;
  1902. ; pascal ComponentResult NAGetKnob(NoteAllocator ci, NoteChannel noteChannel, long knobNumber, long *knobValue)
  1903. ;
  1904.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1905.         Macro
  1906.         _NAGetKnob
  1907.             move.l              #$000C0028,-(sp)
  1908.             moveq               #0,D0
  1909.             dc.w                $A82A
  1910.         EndM
  1911.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1912.         IMPORT_CFM_FUNCTION NAGetKnob
  1913.     ENDIF
  1914.  
  1915. ;
  1916. ; pascal ComponentResult NATask(NoteAllocator ci)
  1917. ;
  1918.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1919.         Macro
  1920.         _NATask
  1921.             move.l              #$00000029,-(sp)
  1922.             moveq               #0,D0
  1923.             dc.w                $A82A
  1924.         EndM
  1925.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1926.         IMPORT_CFM_FUNCTION NATask
  1927.     ENDIF
  1928.  
  1929. ;
  1930. ; pascal ComponentResult NASetNoteChannelBalance(NoteAllocator ci, NoteChannel noteChannel, long balance)
  1931. ;
  1932.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1933.         Macro
  1934.         _NASetNoteChannelBalance
  1935.             move.l              #$0008002A,-(sp)
  1936.             moveq               #0,D0
  1937.             dc.w                $A82A
  1938.         EndM
  1939.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1940.         IMPORT_CFM_FUNCTION NASetNoteChannelBalance
  1941.     ENDIF
  1942.  
  1943. ;
  1944. ; pascal ComponentResult NASetInstrumentNumberInterruptSafe(NoteAllocator ci, NoteChannel noteChannel, long instrumentNumber)
  1945. ;
  1946.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1947.         Macro
  1948.         _NASetInstrumentNumberInterruptSafe
  1949.             move.l              #$0008002B,-(sp)
  1950.             moveq               #0,D0
  1951.             dc.w                $A82A
  1952.         EndM
  1953.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1954.         IMPORT_CFM_FUNCTION NASetInstrumentNumberInterruptSafe
  1955.     ENDIF
  1956.  
  1957. ;
  1958. ; pascal ComponentResult NASetNoteChannelSoundLocalization(NoteAllocator ci, NoteChannel noteChannel, Handle data)
  1959. ;
  1960.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1961.         Macro
  1962.         _NASetNoteChannelSoundLocalization
  1963.             move.l              #$0008002C,-(sp)
  1964.             moveq               #0,D0
  1965.             dc.w                $A82A
  1966.         EndM
  1967.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  1968.         IMPORT_CFM_FUNCTION NASetNoteChannelSoundLocalization
  1969.     ENDIF
  1970.  
  1971.  
  1972.  
  1973.  
  1974.  
  1975. kTuneQueueDepth                    EQU        8                    ; Deepest you can queue tune segments 
  1976.  
  1977. TuneStatus                RECORD 0
  1978. tune                     ds.l    1                ; offset: $0 (0)        ;  currently playing tune 
  1979. tunePtr                     ds.l    1                ; offset: $4 (4)        ;  position within currently playing piece 
  1980. time                     ds.l    1                ; offset: $8 (8)        ;  current tune time 
  1981. queueCount                 ds.w    1                ; offset: $C (12)        ;  how many pieces queued up? 
  1982. queueSpots                 ds.w    1                ; offset: $E (14)        ;  How many more tunepieces can be queued 
  1983. queueTime                 ds.l    1                ; offset: $10 (16)        ;  How much time is queued up? (can be very inaccurate) 
  1984. reserved                 ds.l    3                ; offset: $14 (20)
  1985. sizeof                     EQU *                    ; size:   $20 (32)
  1986.                         ENDR
  1987. ; typedef ComponentInstance             TunePlayer
  1988.  
  1989.  
  1990. kTunePlayerType                    EQU        'tune'
  1991.  
  1992. ;
  1993. ; pascal ComponentResult TuneSetHeader(TunePlayer tp, unsigned long *header)
  1994. ;
  1995.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  1996.         Macro
  1997.         _TuneSetHeader
  1998.             move.l              #$00040004,-(sp)
  1999.             moveq               #0,D0
  2000.             dc.w                $A82A
  2001.         EndM
  2002.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2003.         IMPORT_CFM_FUNCTION TuneSetHeader
  2004.     ENDIF
  2005.  
  2006. ;
  2007. ; pascal ComponentResult TuneGetTimeBase(TunePlayer tp, TimeBase *tb)
  2008. ;
  2009.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2010.         Macro
  2011.         _TuneGetTimeBase
  2012.             move.l              #$00040005,-(sp)
  2013.             moveq               #0,D0
  2014.             dc.w                $A82A
  2015.         EndM
  2016.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2017.         IMPORT_CFM_FUNCTION TuneGetTimeBase
  2018.     ENDIF
  2019.  
  2020. ;
  2021. ; pascal ComponentResult TuneSetTimeScale(TunePlayer tp, TimeScale scale)
  2022. ;
  2023.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2024.         Macro
  2025.         _TuneSetTimeScale
  2026.             move.l              #$00040006,-(sp)
  2027.             moveq               #0,D0
  2028.             dc.w                $A82A
  2029.         EndM
  2030.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2031.         IMPORT_CFM_FUNCTION TuneSetTimeScale
  2032.     ENDIF
  2033.  
  2034. ;
  2035. ; pascal ComponentResult TuneGetTimeScale(TunePlayer tp, TimeScale *scale)
  2036. ;
  2037.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2038.         Macro
  2039.         _TuneGetTimeScale
  2040.             move.l              #$00040007,-(sp)
  2041.             moveq               #0,D0
  2042.             dc.w                $A82A
  2043.         EndM
  2044.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2045.         IMPORT_CFM_FUNCTION TuneGetTimeScale
  2046.     ENDIF
  2047.  
  2048. ;
  2049. ; pascal ComponentResult TuneGetIndexedNoteChannel(TunePlayer tp, long i, NoteChannel *nc)
  2050. ;
  2051.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2052.         Macro
  2053.         _TuneGetIndexedNoteChannel
  2054.             move.l              #$00080008,-(sp)
  2055.             moveq               #0,D0
  2056.             dc.w                $A82A
  2057.         EndM
  2058.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2059.         IMPORT_CFM_FUNCTION TuneGetIndexedNoteChannel
  2060.     ENDIF
  2061.  
  2062.  
  2063. ;  Values for when to start. 
  2064.  
  2065. kTuneStartNow                    EQU        1                    ; start after buffer is implied 
  2066. kTuneDontClipNotes                EQU        2                    ; allow notes to finish their durations outside sample 
  2067. kTuneExcludeEdgeNotes            EQU        4                    ; dont play notes that start at end of tune 
  2068. kTuneQuickStart                    EQU        8                    ; Leave all the controllers where they are, ignore start time 
  2069. kTuneLoopUntil                    EQU        16                    ; loop a queued tune if there's nothing else in the queue 
  2070. kTuneStartNewMaster                EQU        16384
  2071. ;
  2072. ; pascal ComponentResult TuneQueue(TunePlayer tp, unsigned long *tune, Fixed tuneRate, unsigned long tuneStartPosition, unsigned long tuneStopPosition, unsigned long queueFlags, TuneCallBackUPP callBackProc, long refCon)
  2073. ;
  2074.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2075.         Macro
  2076.         _TuneQueue
  2077.             move.l              #$001C000A,-(sp)
  2078.             moveq               #0,D0
  2079.             dc.w                $A82A
  2080.         EndM
  2081.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2082.         IMPORT_CFM_FUNCTION TuneQueue
  2083.     ENDIF
  2084.  
  2085. ;
  2086. ; pascal ComponentResult TuneInstant(TunePlayer tp, void *tune, long tunePosition)
  2087. ;
  2088.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2089.         Macro
  2090.         _TuneInstant
  2091.             move.l              #$0008000B,-(sp)
  2092.             moveq               #0,D0
  2093.             dc.w                $A82A
  2094.         EndM
  2095.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2096.         IMPORT_CFM_FUNCTION TuneInstant
  2097.     ENDIF
  2098.  
  2099. ;
  2100. ; pascal ComponentResult TuneGetStatus(TunePlayer tp, TuneStatus *status)
  2101. ;
  2102.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2103.         Macro
  2104.         _TuneGetStatus
  2105.             move.l              #$0004000C,-(sp)
  2106.             moveq               #0,D0
  2107.             dc.w                $A82A
  2108.         EndM
  2109.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2110.         IMPORT_CFM_FUNCTION TuneGetStatus
  2111.     ENDIF
  2112.  
  2113. ;  Values for stopping. 
  2114.  
  2115. kTuneStopFade                    EQU        1                    ; do a quick, synchronous fadeout 
  2116. kTuneStopSustain                EQU        2                    ; don't silece notes 
  2117. kTuneStopInstant                EQU        4                    ; silence notes fast (else, decay them) 
  2118. kTuneStopReleaseChannels        EQU        8                    ; afterwards, let the channels go 
  2119. ;
  2120. ; pascal ComponentResult TuneStop(TunePlayer tp, long stopFlags)
  2121. ;
  2122.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2123.         Macro
  2124.         _TuneStop
  2125.             move.l              #$0004000D,-(sp)
  2126.             moveq               #0,D0
  2127.             dc.w                $A82A
  2128.         EndM
  2129.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2130.         IMPORT_CFM_FUNCTION TuneStop
  2131.     ENDIF
  2132.  
  2133.  
  2134. ;
  2135. ; pascal ComponentResult TuneSetVolume(TunePlayer tp, Fixed volume)
  2136. ;
  2137.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2138.         Macro
  2139.         _TuneSetVolume
  2140.             move.l              #$00040010,-(sp)
  2141.             moveq               #0,D0
  2142.             dc.w                $A82A
  2143.         EndM
  2144.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2145.         IMPORT_CFM_FUNCTION TuneSetVolume
  2146.     ENDIF
  2147.  
  2148. ;
  2149. ; pascal ComponentResult TuneGetVolume(TunePlayer tp)
  2150. ;
  2151.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2152.         Macro
  2153.         _TuneGetVolume
  2154.             move.l              #$00000011,-(sp)
  2155.             moveq               #0,D0
  2156.             dc.w                $A82A
  2157.         EndM
  2158.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2159.         IMPORT_CFM_FUNCTION TuneGetVolume
  2160.     ENDIF
  2161.  
  2162. ;
  2163. ; pascal ComponentResult TunePreroll(TunePlayer tp)
  2164. ;
  2165.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2166.         Macro
  2167.         _TunePreroll
  2168.             move.l              #$00000012,-(sp)
  2169.             moveq               #0,D0
  2170.             dc.w                $A82A
  2171.         EndM
  2172.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2173.         IMPORT_CFM_FUNCTION TunePreroll
  2174.     ENDIF
  2175.  
  2176. ;
  2177. ; pascal ComponentResult TuneUnroll(TunePlayer tp)
  2178. ;
  2179.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2180.         Macro
  2181.         _TuneUnroll
  2182.             move.l              #$00000013,-(sp)
  2183.             moveq               #0,D0
  2184.             dc.w                $A82A
  2185.         EndM
  2186.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2187.         IMPORT_CFM_FUNCTION TuneUnroll
  2188.     ENDIF
  2189.  
  2190. ;
  2191. ; pascal ComponentResult TuneSetNoteChannels(TunePlayer tp, unsigned long count, NoteChannel *noteChannelList, TunePlayCallBackUPP playCallBackProc, long refCon)
  2192. ;
  2193.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2194.         Macro
  2195.         _TuneSetNoteChannels
  2196.             move.l              #$00100014,-(sp)
  2197.             moveq               #0,D0
  2198.             dc.w                $A82A
  2199.         EndM
  2200.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2201.         IMPORT_CFM_FUNCTION TuneSetNoteChannels
  2202.     ENDIF
  2203.  
  2204. ;
  2205. ; pascal ComponentResult TuneSetPartTranspose(TunePlayer tp, unsigned long part, long transpose, long velocityShift)
  2206. ;
  2207.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2208.         Macro
  2209.         _TuneSetPartTranspose
  2210.             move.l              #$000C0015,-(sp)
  2211.             moveq               #0,D0
  2212.             dc.w                $A82A
  2213.         EndM
  2214.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2215.         IMPORT_CFM_FUNCTION TuneSetPartTranspose
  2216.     ENDIF
  2217.  
  2218.  
  2219. ;
  2220. ; pascal NoteAllocator TuneGetNoteAllocator(TunePlayer tp)
  2221. ;
  2222.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2223.         Macro
  2224.         _TuneGetNoteAllocator
  2225.             move.l              #$00000017,-(sp)
  2226.             moveq               #0,D0
  2227.             dc.w                $A82A
  2228.         EndM
  2229.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2230.         IMPORT_CFM_FUNCTION TuneGetNoteAllocator
  2231.     ENDIF
  2232.  
  2233. ;
  2234. ; pascal ComponentResult TuneSetSofter(TunePlayer tp, long softer)
  2235. ;
  2236.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2237.         Macro
  2238.         _TuneSetSofter
  2239.             move.l              #$00040018,-(sp)
  2240.             moveq               #0,D0
  2241.             dc.w                $A82A
  2242.         EndM
  2243.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2244.         IMPORT_CFM_FUNCTION TuneSetSofter
  2245.     ENDIF
  2246.  
  2247. ;
  2248. ; pascal ComponentResult TuneTask(TunePlayer tp)
  2249. ;
  2250.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2251.         Macro
  2252.         _TuneTask
  2253.             move.l              #$00000019,-(sp)
  2254.             moveq               #0,D0
  2255.             dc.w                $A82A
  2256.         EndM
  2257.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2258.         IMPORT_CFM_FUNCTION TuneTask
  2259.     ENDIF
  2260.  
  2261. ;
  2262. ; pascal ComponentResult TuneSetBalance(TunePlayer tp, long balance)
  2263. ;
  2264.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2265.         Macro
  2266.         _TuneSetBalance
  2267.             move.l              #$0004001A,-(sp)
  2268.             moveq               #0,D0
  2269.             dc.w                $A82A
  2270.         EndM
  2271.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2272.         IMPORT_CFM_FUNCTION TuneSetBalance
  2273.     ENDIF
  2274.  
  2275. ;
  2276. ; pascal ComponentResult TuneSetSoundLocalization(TunePlayer tp, Handle data)
  2277. ;
  2278.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2279.         Macro
  2280.         _TuneSetSoundLocalization
  2281.             move.l              #$0004001B,-(sp)
  2282.             moveq               #0,D0
  2283.             dc.w                $A82A
  2284.         EndM
  2285.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2286.         IMPORT_CFM_FUNCTION TuneSetSoundLocalization
  2287.     ENDIF
  2288.  
  2289. ;
  2290. ; pascal ComponentResult TuneSetHeaderWithSize(TunePlayer tp, unsigned long *header, unsigned long size)
  2291. ;
  2292.     IF TARGET_OS_MAC ** TARGET_CPU_68K ** ¬ TARGET_RT_MAC_CFM THEN
  2293.         Macro
  2294.         _TuneSetHeaderWithSize
  2295.             move.l              #$0008001C,-(sp)
  2296.             moveq               #0,D0
  2297.             dc.w                $A82A
  2298.         EndM
  2299.     ELSEIF TARGET_OS_MAC ** TARGET_RT_MAC_CFM THEN
  2300.         IMPORT_CFM_FUNCTION TuneSetHeaderWithSize
  2301.     ENDIF
  2302.  
  2303.  
  2304. ; typedef unsigned long                 MusicOpWord
  2305.  
  2306. ; typedef unsigned long *                MusicOpWordPtr
  2307.  
  2308. ;      QuickTime Music Track Event Formats:
  2309. ;
  2310. ;    At this time, QuickTime music tracks support 5 different event types -- REST events,
  2311. ;    short NOTE events, short CONTROL events, short GENERAL events, Long NOTE events, 
  2312. ;    long CONTROL events, and variable GENERAL events.
  2313. ; 
  2314. ;        • REST Event (4 bytes/event):
  2315. ;    
  2316. ;            (0 0 0) (5-bit UNUSED) (24-bit Rest Duration)
  2317. ;        
  2318. ;        • Short NOTE Events (4 bytes/event):
  2319. ;    
  2320. ;            (0 0 1) (5-bit Part) (6-bit Pitch) (7-bit Volume) (11-bit Duration)
  2321. ;        
  2322. ;            where:    Pitch is offset by 32 (Actual pitch = pitch field + 32)
  2323. ;
  2324. ;        • Short CONTROL Events (4 bytes/event):
  2325. ;    
  2326. ;            (0 1 0) (5-bit Part) (8-bit Controller) (1-bit UNUSED) (1-bit Sign) (7-bit MSB) (7-bit LSB)
  2327. ;                                                                         ( or 15-bit Signed Value)
  2328. ;        • Short GENERAL Event (4 bytes/event):
  2329. ;    
  2330. ;            (0 1 1) (1-bit UNUSED) (12-bit Sub-Type) (16-bit Value)
  2331. ;    
  2332. ;        • Long NOTE Events (8 bytes/event):
  2333. ;    
  2334. ;            (1 0 0 1) (12-bit Part) (1-bit UNUSED) (7-bit Pitch) (1-bit UNUSED) (7-bit Volume)
  2335. ;            (1 0) (8-bit UNUSED) (22-bit Duration)
  2336. ;        
  2337. ;        • Long CONTROL Event (8 bytes/event):
  2338. ;        
  2339. ;            (1 0 1 0) (12-bit Part) (16-bit Value MSB) 
  2340. ;            (1 0) (14-bit Controller) (16-bit Value LSB)
  2341. ;    
  2342. ;        • Long KNOB Event (8 bytes/event):
  2343. ;    
  2344. ;            (1 0 1 1) (12-bit Sub-Type) (16-bit Value MSB)
  2345. ;            (1 0) (14-bit KNOB) (16-bit Value LSB)
  2346. ;    
  2347. ;        • Variable GENERAL Length Events (N bytes/event):
  2348. ;    
  2349. ;            (1 1 1 1) (12-bit Sub-Type) (16-bit Length)
  2350. ;                :
  2351. ;            (32-bit Data values)
  2352. ;                :
  2353. ;            (1 1) (14-bit UNUSED) (16-bit Length)
  2354. ;    
  2355. ;            where:    Length field is the number of LONG words in the record.
  2356. ;                    Lengths include the first and last long words (Minimum length = 2)
  2357. ;                
  2358. ;    The following event type values have not been used yet and are reserved for 
  2359. ;    future expansion:
  2360. ;        
  2361. ;        • (1 0 0 0)        (8 bytes/event)
  2362. ;        • (1 1 0 0)        (N bytes/event)
  2363. ;        • (1 1 0 1)        (N bytes/event)
  2364. ;        • (1 1 1 0)        (N bytes/event)
  2365. ;        
  2366. ;    For all events, the following generalizations apply:
  2367. ;    
  2368. ;        -    All duration values are specified in Millisecond units.
  2369. ;        -     Pitch values are intended to map directly to the MIDI key numbers.
  2370. ;        -    Controllers from 0 to 127 correspond to the standard MIDI controllers.
  2371. ;            Controllers greater than 127 correspond to other controls (i.e., Pitch Bend, 
  2372. ;            Key Pressure, and Channel Pressure).    
  2373. ;
  2374.  
  2375.  
  2376. ;  Defines for the implemented music event data fields
  2377.  
  2378. kRestEventType                    EQU        $00000000            ; lower 3-bits 
  2379. kNoteEventType                    EQU        $00000001            ; lower 3-bits 
  2380. kControlEventType                EQU        $00000002            ; lower 3-bits 
  2381. kMarkerEventType                EQU        $00000003            ; lower 3-bits 
  2382. kUndefined1EventType            EQU        $00000008            ; 4-bits 
  2383. kXNoteEventType                    EQU        $00000009            ; 4-bits 
  2384. kXControlEventType                EQU        $0000000A            ; 4-bits 
  2385. kKnobEventType                    EQU        $0000000B            ; 4-bits 
  2386. kUndefined2EventType            EQU        $0000000C            ; 4-bits 
  2387. kUndefined3EventType            EQU        $0000000D            ; 4-bits 
  2388. kUndefined4EventType            EQU        $0000000E            ; 4-bits 
  2389. kGeneralEventType                EQU        $0000000F            ; 4-bits 
  2390. kXEventLengthBits                EQU        $00000002            ; 2 bits: indicates 8-byte event record 
  2391. kGeneralEventLengthBits            EQU        $00000003            ; 2 bits: indicates variable length event record 
  2392. kEventLen                        EQU        1                    ; length of events in long words 
  2393. kXEventLen                        EQU        2
  2394. kRestEventLen                    EQU        1                    ; length of events in long words 
  2395. kNoteEventLen                    EQU        1
  2396. kControlEventLen                EQU        1
  2397. kMarkerEventLen                    EQU        1
  2398. kXNoteEventLen                    EQU        2
  2399. kXControlEventLen                EQU        2
  2400. kGeneralEventLen                EQU        2                    ; 2 or more, however 
  2401.                                                             ; Universal Event Defines
  2402. kEventLengthFieldPos            EQU        30                    ; by looking at these two bits of the 1st or last word              
  2403. kEventLengthFieldWidth            EQU        2                    ; of an event you can determine the event length                      
  2404.                                                             ; length field: 0 & 1 => 1 long; 2 => 2 longs; 3 => variable length 
  2405. kEventTypeFieldPos                EQU        29                    ; event type field for short events 
  2406. kEventTypeFieldWidth            EQU        3                    ; short type is 3 bits 
  2407. kXEventTypeFieldPos                EQU        28                    ; event type field for extended events 
  2408. kXEventTypeFieldWidth            EQU        4                    ; extended type is 4 bits 
  2409. kEventPartFieldPos                EQU        24
  2410. kEventPartFieldWidth            EQU        5
  2411. kXEventPartFieldPos                EQU        16                    ; in the 1st long word 
  2412. kXEventPartFieldWidth            EQU        12                    ; Rest Events
  2413. kRestEventDurationFieldPos        EQU        0
  2414. kRestEventDurationFieldWidth    EQU        24
  2415. kRestEventDurationMax            EQU        $00FFFFFF            ; Note Events
  2416. kNoteEventPitchFieldPos            EQU        18
  2417. kNoteEventPitchFieldWidth        EQU        6
  2418. kNoteEventPitchOffset            EQU        32                    ; add to value in pitch field to get actual pitch 
  2419. kNoteEventVolumeFieldPos        EQU        11
  2420. kNoteEventVolumeFieldWidth        EQU        7
  2421. kNoteEventVolumeOffset            EQU        0                    ; add to value in volume field to get actual volume 
  2422. kNoteEventDurationFieldPos        EQU        0
  2423. kNoteEventDurationFieldWidth    EQU        11
  2424. kNoteEventDurationMax            EQU        $000007FF
  2425. kXNoteEventPitchFieldPos        EQU        0                    ; in the 1st long word 
  2426. kXNoteEventPitchFieldWidth        EQU        16
  2427. kXNoteEventDurationFieldPos        EQU        0                    ; in the 2nd long word 
  2428. kXNoteEventDurationFieldWidth    EQU        22
  2429. kXNoteEventDurationMax            EQU        $003FFFFF
  2430. kXNoteEventVolumeFieldPos        EQU        22                    ; in the 2nd long word 
  2431. kXNoteEventVolumeFieldWidth        EQU        7                    ; Control Events
  2432. kControlEventControllerFieldPos    EQU        16
  2433. kControlEventControllerFieldWidth EQU    8
  2434. kControlEventValueFieldPos        EQU        0
  2435. kControlEventValueFieldWidth    EQU        16
  2436. kXControlEventControllerFieldPos EQU    0                    ; in the 2nd long word 
  2437. kXControlEventControllerFieldWidth EQU    16
  2438. kXControlEventValueFieldPos        EQU        0                    ; in the 1st long word 
  2439. kXControlEventValueFieldWidth    EQU        16                    ; Knob Events
  2440. kKnobEventValueHighFieldPos        EQU        0                    ; 1st long word 
  2441. kKnobEventValueHighFieldWidth    EQU        16
  2442. kKnobEventKnobFieldPos            EQU        16                    ; 2nd long word 
  2443. kKnobEventKnobFieldWidth        EQU        14
  2444. kKnobEventValueLowFieldPos        EQU        0                    ; 2nd long word 
  2445. kKnobEventValueLowFieldWidth    EQU        16                    ; Marker Events
  2446. kMarkerEventSubtypeFieldPos        EQU        16
  2447. kMarkerEventSubtypeFieldWidth    EQU        8
  2448. kMarkerEventValueFieldPos        EQU        0
  2449. kMarkerEventValueFieldWidth        EQU        16                    ; General Events
  2450. kGeneralEventSubtypeFieldPos    EQU        16                    ; in the last long word 
  2451. kGeneralEventSubtypeFieldWidth    EQU        14
  2452. kGeneralEventLengthFieldPos        EQU        0                    ; in the 1st & last long words 
  2453. kGeneralEventLengthFieldWidth    EQU        16
  2454.  
  2455.  
  2456. ;  General Event Defined Types
  2457.  
  2458. kGeneralEventNoteRequest        EQU        1                    ; Encapsulates NoteRequest data structure 
  2459. kGeneralEventPartKey            EQU        4
  2460. kGeneralEventTuneDifference        EQU        5                    ; Contains a standard sequence, with end marker, for the tune difference of a sequence piece (halts QuickTime 2.0 Music) 
  2461. kGeneralEventAtomicInstrument    EQU        6                    ; Encapsulates AtomicInstrument record 
  2462. kGeneralEventKnob                EQU        7                    ; knobID/knobValue pairs; smallest event is 4 longs 
  2463. kGeneralEventMIDIChannel        EQU        8                    ; used in tune header, one longword identifies the midi channel it originally came from 
  2464. kGeneralEventPartChange            EQU        9                    ; used in tune sequence, one longword identifies the tune part which can now take over this part's note channel (similar to program change) (halts QuickTime 2.0 Music)
  2465. kGeneralEventNoOp                EQU        10                    ; guaranteed to do nothing and be ignored. (halts QuickTime 2.0 Music) 
  2466. kGeneralEventUsedNotes            EQU        11                    ; four longwords specifying which midi notes are actually used, 0..127 msb to lsb 
  2467. ;  Marker Event Defined Types        // marker is 60 ee vv vv in hex, where e = event type, and v = value
  2468.  
  2469. kMarkerEventEnd                    EQU        0                    ; marker type 0 means: value 0 - stop, value != 0 - ignore
  2470. kMarkerEventBeat                EQU        1                    ; value 0 = single beat; anything else is 65536ths-of-a-beat (quarter note)
  2471. kMarkerEventTempo                EQU        2                    ; value same as beat marker, but indicates that a tempo event should be computed (based on where the next beat or tempo marker is) and emitted upon export
  2472.  
  2473.  
  2474. ;  UPP call backs 
  2475.  
  2476.  
  2477.     ENDIF ; __QUICKTIMEMUSIC__ 
  2478.  
  2479.